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1.0  INTRODUCTION 
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^Hamilton  Standard  computer  deck  numbered  H193  is  used  to  calculate  shrouded  pro¬ 
peller  performance  and  shroud  surface  pressure  coefficients  based  on  the  computa¬ 
tional  procedure  discussed  in  Volume  1  of  "Shrouded  Propeller  Test  Program  - 
Method  Development".  The  necessary  shroud  thickness  and  camber  effects  are  gene¬ 
rated  by  Hamilton  Standard  Deck  H194,  and  the  pertinent  centerbody  information  is 
obtained  from  Hamilton  Standard  Deck  H060.  Therefore,  data  generated  by  Decks 
H194  and  H060  are  used  as  input  for  Deck  H193. 

The  computations  permissible  with  Hamilton  Standard  Deck  H193  are  divided  into 
the  following  three  categories . 


(l)  Given  Shroud  and  Propeller  Geometry  -  — 

For  a  given  shroud  and  propeller  geometry,  an  'terative  process  is  involved  in  estab¬ 
lishing  the  propeller  circulation  for  the  specific  operating  condition.  Then,  the  net 
shrouded  propeller  (shroud  +  propeller)  performance  is  computed  as  well  as  the 
shroud  and  propeller  contributions  to  the  performance.  Shroud  friction  drag  and 
shroud  surface  pressure  distributions  are  also  calculated. 

(id  Given  Shroud  Geometry  and  Propeller  Circulation.^, — 

For  a  given  shroud  geometry  and  propeller  circulation,  the  same  output  as  noted 
above  is  obtained. 

(s)  Given  Shroud  Geometry  (No  Propeller)  — 

For  a  given  shroud  geometry,  the  shroud  surface  pressure  coefficients,  the  shroud 

drag’  ““  vel°°lty  lnduccd  by  the  8hroud  any  Plane  “  the  shr°ud  are  “ 1 '  it. 

All  the  computer  programs  are  coded  in  FORTRAN  IV  and  have  run  on  a  Univac  1108. 

Flow  charts  showing  the  interaction  of  the  main  program  with  the  subroutines  and  the 
corresponding  FORTRAN  IV  listings  are  presented  in  the  Appendix.  The  input  format 
consists  of  integers  in  columns  1  through  6,  which  must  be  right  justified,  and  eleven 
fields  of  floating  point  data  consisting  of  six  columns  each  (213,  11F6. 0).  Detailed 
information  will  be  given  with  respect  to  input  and  output  as  well  as  sample  cases. 
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2.0  SHROUDED  PROPELLER  PERFORMANCE  COMPUTER  PROGRAM 


A. 

Deck: 

Hamilton  Standard  Deck  H193 

B. 

Title: 

Shrouded  Propeller  Performance 

c. 

Purpose: 

Compute  shrouded  propeller  performance,  shroud  drag,  and  shroud 

surface  pressure  coefficients 


D.  Analysis  Method: 

The  computational  procedure  is  based  on  the  theory  discussed  in  Volume  1.  The  the¬ 
ory  defines  the  interaction  of  shroud,  propeller  and  centerbody  induced  flows,  repre¬ 
sents  the  propeller  by  a  finite  number  of  blades,  and  includes  the  influence  of  finite 
shroud  dimensions  on  induced  flow  and  the  corresponding  shroud  thrust.  The  pro¬ 
gram  is  restricted  to  propellers  incorporating  NACA  Series  16  airfoil  sections. 

E.  Description  of  Input: 

The  input  is  coded  as  shown  on  Pig.  1.  For  ease  of  discussion,  the  pertinent  input 
is  divided  into  the  following  six  categories  and  is  coded  on  the  noted  cards, 

» 

1.  Blade  Characteristics  (Cards  3  thru  9)) 

2.  Shroud  Characteristics  (Cards  31,  32,  33,  36,  37,  38,  39,  40) 

3.  Centerbody  Characteristics  (Cards  34,  35,  36 — 1,  37 — 1,  38 — 1,  39 — 1) 

4.  Type  of  Calculation  (Card  3) 

5.  Operating  Conditions  (Card  10  &  subsequent  cards) 

6.  Print  Out  Options  (Subsequent  cards  noted  above  &  card  31) 

Pertinent  information  will  be  explained  lor  each  input  category. 

_ ± _ 

1.  Blade  Characteristics  (Cards  3  thru  9  on  Fig.  l)i  ■. 

#Blades  -  The  number  of  blades  is  limited  to  2,  3,  4,  5,  6,  7,  or  8. 

AF  -  Activity  Factor  is  included  as  identification  only  and  therefore  is  not 
used  in  the  computational  procedure. 

A.  F.  =  1M  B  x3  dx 

J2  D 

CL  -  Integrated  Design  Cl  is  included  as  identification  only  and  therefore  is 
notused  in  the  computational  procedure.  , 
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2.0  (Continued) 


CLi  - 


(Des  C]J  x'3  dx 


The  variables  in  these  equations  are  defined  in  the  following  text. 

Dprop  -  Propeller  diameter  in  feet^ 

ECO  =  HUB  X  -  Ratio  of  hub  radius  to  propeller  radius. 

The  propeller  blade  elemental  characteristics  are  included  for  10  stations 
along  the  blade  defined  by  the  following  equation. 

xj  =  (1. 0  -  HCO)  ( H  i)  +  mid  point' 

where 

x  =  Ratio  of  propeller  sectional  radius  to  propeller  tip  radius  and 


=  +.4870 
p  2  =  +• 4325 
p3  =  +.3397 
H  =  +.2167 


P5  =  +.0744 


M6  =  -.0744 
=  -.2167 
=  -.3397 
Mg  =  -.4325 
"^10  =  “•4870 


Mid-point  -  Defined  as  shown  in  the  following  sketch. 


PROP. 

<L 


MID-POINT  BETWEEN 
HCO  &  X  =1.0 


X  =  HCO 


X  1.0 


X  =  0 


If  SHROUD  on  card  3  (See  explanation  under  Paragraph  4,  Type  of  Calculation, 
following)  is  equal  to  4. ,  signifying  that  the  propeller  geometry  is  defined,  code  the 
following  propeller  sectional  properties  corresponding  to  each  of  the  ten  x's. 
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2.0  (Continued) 

-  The  ratio  of  propeller  sectional  thickness  to  sectional  width. 

-  The  ratio  of  blade  sectional  width  to  propeller  diameter. 

-  The  sectional  design  Cl  for  the  NACA  Series  16  sectional  airfoil. 

-  Propeller  blade  section  twist.  It  is  defined  as  0X-  ©x=3/4  radius* 

If  SHROUD  (See  explanation  under  Type  of  Calculation)  on  card  3  is  equal  to  5. , 
signifying  that  the  sectional  propeller  circulation  ( Tp)  is  known,  code  the 
radial  variation  of  non-dimensionalized  circulation  ( Tp)  which  is  defined  as 

rP 

Tp  =  . —— -  where  Rp  is  the  propeller  radius  (ft)  and  Voo  is  the  uniform 

*00 

free  stream  velocity  (ft/sec).  The  corresponding  propeller  thrust  coefficient, 

T 

CT  must  be  coded  on  card  3  where  Ct  =  — •  The  variables  in  this 
equation  are  defined  under  paragraph  4  of  output. 

2.  Shroud  Characteristics  (Cards  31,  32,  33,  36,  37,  38,  39,  &  40  on  Fig.  1) 
Shroud  I.  D.  #  for  identification  purposes  only. 

LAMBDA  -  Ratio  of  shroud  chord  to  shroud  reference  diameter.  Shroud  re¬ 
ference  diameter  is  defined  as  the  distance  in  the  propeller  plane  measured 
from  the  centerline  to  the  mean  camber  line  (See  Fig.  2.)  ,25  s  X  s  1. 00 

XPBAR  -  Ratio  of  the  distance  of  the  propeller  plane  position  from  shroud  mid¬ 
chord  to  the  shroud  chord.  The  value  is  negative  upstream  of  mid-chord  and 
positive  downstream  of  mid-chord  (See  Fig.  2). 

MU  -  Ratio  of  propeller  radius  to  shroud  reference  radius  (See  Fig.  2).  , 

.75  £  M  s. 998 

For  the  case  of  calculation  of  shroud  alone,  code  the  shroud  reference  diame - 
ter  in  feet  in  the  MU  slot.  MU  will  be  defined  internally  as  the  ratio  of  shroud 
inner  surface  diameter  to  shroud  reference  diameter. 

A0  -  A7  -  Shroud  thickness  coefficients  defined  by 
7 

t/c  =  Ao/x^-i-  D  An  (xs)  n 
n=l 

where  t  =  shroud  thickness,  c  is  shroud  chord  and  xs  is  the  percentage  of 
shroud  chord  from  the  leading  edge.  If  the  shroud  shape  is  one  for  which  the 
coefficients  An  are  not  known,  they  can  be  obtained  from  Hamilton  Standard 
Deck  H194,  as  noted  in  the  Introduction  and  described  in  Section  3. 0. 


T/B 
B/D 
DES  CL 

a  e 


8 


Hamilton 

Standard 


U 

&VISCN  .V  AKfCdAf  T  CO*»»»0«ATIOi 

H® 


HSER  4776 
Volume  II 


2. 0  (Continued) 

Eo-E6  -  Shroud  camber  2 -dimensional  Glauert  coefficients.  If  the  shroud 
camber  line  is  one  for  which  the  information  is  not  known,  use  Hamilton 
Standard  Deck  H194  to  obtain  the  pertinent  data  as  described  in  Section  3. 0. 

T/C2D  ~  2D  shroud  thickness  effect  on  shroud  surface  velocity.  The  informa¬ 
tion  is  used  in  the  computation  of  shroud  surface  pressure  distribution.  If 
the  data  is  not  available  for  the  particular  shroud,  use  the  option  of  having  it 
computed  as  specified  on  card  40  in  Fig.  1. 

Shroud  Diameter  -  Defined  as  diameter  to  inner  surface  of  shroud  in  the  pro¬ 
peller  plane.  Note  that  this  is  always  smaller  than  the  shroud  reference 
diameter. 

A4/A2  -  Ratio  shroud  open  area  at  shroud  exit  to  shroud  open  area 
directly  ahead  of  propeller. 

Riegels  Factor  Limit  -  The  xs  corresponding  to  the  shroud  maximum  thick¬ 
ness. 

X  -  On  card  4,  for  shroud  alone,  is  defined  as  sectional  radius/shroud  inner 
surface  radius  in  specified  plane. 

Shroud  X  -  Ratio  of  shroud  sectional  chord  to  shroud  chord.  These  are  the 
points  for  which  the  shroud  surface  pressure  coefficients  will  be  computed. 

The  shroud  xs's  should  be  greater  than  0  and  less  than  1. 

NSX  -  Number  of  shroud  xs's  for  which  shroud  surface  pressure  coefficients 
will  be  computed.  The  maximum  number  is  40. 

3.  Centerbody  Characteristics  (Cards  34,  35,  36 — 1,  37- -1,  38 — 1,  &  39 — 1 
on  Fig.  1) 

The  following  velocities  induced  by  the  centerbody  are  required. 

a)  Radial  velocities  along  shroud  surface  expressed  as  Glauert  coefficients. 

b)  Axial  velocities  induced  by  the  centerbody  in  the  plane  of  the  propeller 
corresponding  to  the  ten  stations  along  the  blade. 

c)  Axial  velocities  induced  by  the  centerbody  on  the  shroud  surface  correspond¬ 
ing  to  the  axial  locations  taken  along  the  shroud  chord. 

They  are  obtained  from  Hamilton  Standard  Deck  II060  as  described  in  Seotion  4.0. 
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4.  Type  of  Calculations  (Card  3  of  Fig.  1). 

SHROUD  -  Defines  which  computational  option  is  being  used, 
where 

SHROUD  =  4.  specifies  computations  for  the  combination  of  specified 
shroud  and  propeller  geometry. 

SHROUD  =  5.  specifies  computations  for  the  combination  of  a  defined 

shroud  geometry  and  the  propeller  represented  as  a  propeller 
circulation.  c 

SHROUD  =  6.  specifies  computations  for  the  shroud  alor.e. 

5.  Operating  Conditions  (Card  10  &  subsequent  cards  on  Fig.  1) 

No.  Cond  -  Number  of  operating  conditions  to  be  considered  with  the  maximum 
being  equal  to  10. 

For  the  given  shroud  and  propeller  geometry  computation,  each  operating 
condition  is  defined  by  the  following  condition  cards. 

J  -  Advance  ratio  where  J  =  v/nD  and  v  is  free  stream  velocity  (ft/sec) 
n  is  propeller  rotational  speed  (rev/sec)  and  D  is  propeller  diameter  (ft) 

#3/4  first  -  First  propeller  blade  angle  for  which  computation  is  to  be  made. 

A  0  3/4  -  Increment  of  0  3/4  by  which  #3/4  will  be  changed  for  subsequent 
computations. 

#  0  3/4  -  The  number  of  6  3/4*8  for  which  computations  will  be  made.  The 
maximum  number  will  be  10. 

M.  N.  -  Free  sti'eam  Mach  number. 

For  computations  based  on  a  given  shroud  geometry  and  propeller  circulation, 
the  operating  condition  is  defined  by  J  and  M.  N„ 

For  computations  based  on  shroud  geometry  alone,  the  operating  condition  is 
defined  by  M.  N.  alone. 

The  r'miber  of  condition  cards  must  be  equal  to  the  number  of  conditions  spe¬ 
cified  on  card  10. 

6.  Print  Out  Options  (Subsequent  cards  as  noted  above  &  card  31  on  Fig.  1) 

The  following  options  will  be  of  use  to  those  engaged  in  the  detail  design  of 
propeller  and  shroud.  Thus,  it  is  important  that  there  is  a  complete  under¬ 
standing  of  the  mathematics  of  the  theory. 
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P.  0.  (on  the  condition  cards)  Code  1  for  blade  elemental  print  out.  It  permits 
the  examination  of  the  sectional  aerodynamic  components  required  to  compute 
the  thrust  and  power  coefficient  derivatives.  The  print  out  will  be  discussed 
in  more  detail  under  description  of  output. 

TRIG  1  -  The  option  permits  the  display  of  the  matrices  and  characteristics 
functions  used  in  the  computation  for  a  more  detailed  examination  of  the  com¬ 
putational  procedure.  See  the  paragraphs  dealing  with  output  for  more  details. 

TRIG  2  -  Code  1.  for  the  print  out  of  the  2-dimensional  Glauert  coefficient 
content  with  respect  to  shroud  camber  and  thickness,  propeller  circulation, 
and  centerbody.  These  Glauert  coefficients  are  used  in  defining  the  velocity 
induced  by  the  interaction  of  shroud  and  propeller. 

A  sample  case  of  input  for  each  type  of  calculation  is  shown  on  Fig.  3. 

Description  of  Output 

The  output  consists  of  the  following  print  outs. 

1.  Input 

2.  Type  of  Calculation 

3.  Matrices  and  Characteristic  Functions  if  Option  Exercised 

4.  Performance 

5.  Induced  Velocity  Content  at  Specified  Plane 

6.  Glauert  Coefficients  Content  if  Option  Exercised 

7.  Shroud  Surface  Pressure  Coefficients 


8.  Blade  Elemental  Print  Out  if  Option  Exercised 

9.  Error  Messages 
1.  Input 


The  propeller  input  prints  out  under  the  section  labelled  "PROPELLER 
CHARACTERISTICS".  All  of  the  shroud  input  prints  out  under  "SHROUD 
CHARACTERISTICS".  If  the  2 -D  thickness  effect  on  shroud  surface  pressure 
is  included  as  input,  it  will  print  out  under  "SHROUD  SURFACE  PRESSURE 
COEFFICIENTS".  The  2-D  Glauert  coefficients  due  to  centerbody  are  tabu¬ 
lated  under  "CENTERBODY  CHARACTERISTICS". 
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(Continued) 

The  axial  velocities  induced  by  the  centerbody  on  the  shroud  print  out  under 
"SHROUD  SURFACE  PRESSURE  COEFFICIENTS".  The  centerbody  axially 
induced  velocities  in  the  propeller  plane  print  out  under  "INDUCED  VELOCITY 
CONTENT". 


2.  Type  of  Calculation 

A  statement  prints  out  specifying  which  of  the  three  types  of  computations ' 
was  made. 


3.  Matrices  and  Characteristics  Functions 

P(K,L)  -  Curvature  coefficients  as  functions  of  shroud  chord  to  diameter 
ratio  (A)  where  K  and  L  are  dummy  summation  indices.  (Ref.  1,  p  24-27). 


M(K,  L)  -  Matrix  used  in  defining  shroud  thickness  effect  on  2-D  Glauert  co¬ 
efficients.  (Ref.  2,  p  39-42). 

S(K,  L)  -  Matrix  used  in  defining  shroud  vorticity  distribution  (continuous 
part)  contribution  to  shroud  pressure  distribution.  (Ref.  2,  p  63-66). 

TT(K,  L)  -  Matrix  used  in  defining  shroud  thickness  (3-D  part)  contribution  to 
shroud  pressure  distribution  (Ref.  2,  p  57-60). 

CHI  (J,  NU)  -  Integral  of  the  characteristic  functions  used  in  defining  the 
propeller  effect  on  the  2-D  Glauert  coefficients.  (Volume  I,  Appendix  11.7). 

VELC  (NU)  -  Characteristic  function  used  in  defining  velocities  induced  by 
shroud  vorticity  at  the  propeller  plane.  (Volume  I,  Appendix  11.6). 

VKL1I  (NU)  -  CluirnclorisUc  functions  used  in  defining  velocities  Induced  by 
shroud  thickness  at  the  propeller  plane,  (Volume  I,  Appendix  1 1.6). 

4.  Performance 

For  the  shroud-propeller  combinations,  the  power  coefficient,  and  net  thrust 
coefficient  plus  the  breakdown  to  shroud  and  propeller  thrust  coefficients  and 
shroud  drag  are  included, 

„  P 

where  °p  “  pn3D5 

C'p  =  — - - 

pn^D^ 

F]d 

°D  =  pn2D4“ 
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Fq  =  Shroud  drag  (lb) 

q0  =  Dynamic  pressure  (psf) 

Ds  =  Shroud  diameter  to  inner  surface  (ft) 

C  =  Shroud  chord  (ft) 

5.  induced  Velocity  Content  at  Specified  Plane 

The  increment  of  velocity /free  stream  velocity  induced  by  the  interaction  of 
shroud  and  propeller  (v.orticity),  shroud  thickness  effect,  and  centerbody  are 
listed  for  each  station  in  the  specified  propeller  plane  (XPBAB).  Total  and 
assumed  velocity  ratios  are  included  since  for  the  case  of  the  given  shroud 
and  propeller  geometry  or  propeller  circulation,  the  velocity  is  defined  by 
an  iterative  procedure.  Convergence  is  reached  when  subsequent  values  are 
within  .  0025  of  each  other.  Also  included  are  the  propeller  induced  velocity 
increments  based  on  Goldstein  (G)  and  momentum  (M)  theories.  The  Gold¬ 
stein  velocities  are  used  in  defining  propeller  performance  and  the  momen¬ 
tum  velocities  are  used  in  defining  the  net  performance  (shroud  plus  propeller). 
Furthermore,  for  the  given  shroud  and  propeller  geometry  combination,  the 
swirl  angle  is  computed.  The  swirl  angle  is  defined  as  the  angle  formed  by 
the  leaving  absolute  velocity  and  the  axially  induced  velocity. 
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For  the  shroud  alone  case,  only  the  velocities  induced  by  the  shroud  and 
centerbody  are  included. 

-  S-..  -Slcsgrt  Coefficients  Content 

If  this  print  option  is  selected,  the  contributions  to  the  2 -dimensional  Glauert 
coefficients  of  shroud  camber,  shroud  thickness,  propeller  circulation  and 
centerbody  are  printed  out.  The  3 -dimensional  Glauert  coefficients  are  also 
listed. 

7.  Shroud  Surface  Pressure  Coefficients 


Shroud  surface  pressure  and  velocity  coefficients  are  presented  as  well  as 
the  following  various  components  which  define  the  velocity  distribution. 

a.  Shroud  vorticity  distribution  (discontinuous  part)  due  to  the  local 
shroud  vorticity. 

b.  Shroud  thickness  (2 -dimensional  effect)  due  to  the  local  source 
sink  distribution. 

c.  Shroud  vorticity  distribution  (continuous)  due  to  curvature  of  shroud 
plus  shroud  thickness  (3 -dimensional  effect). 

d.  Propeller  wake  contribution  due  to  propeller  circulation. 

e.  Centerbody  contribution  due  to  centerbody. 

8.  Blade  Elemental  Printout 

If  the  blade  elemental  printout  option  is  exercised,  the  following  information 
is  obtained  for  the  ten  stations  along  the  blade. 

TIIETA  -  Sectional  blade  angle 

ALPHA  -  Angle  of  attack 

PHI  -  Angle  of  advance  plus  induced  angle 

BETA  -  Propeller  induced  angle 

PHIO  -  Advance  angle  of  blade  element 

CL3  -  Blade  sectional  lift  coefficient 


CD/CL  -  Drag  to  lift  ratio 
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DCP/DX  -  Sectional  power  coefficient  derivative. 


DCT/DX  -  Sectional  thrust  coefficient  derivative. 


HSER  4776 
Volume  n 


SECT.  EFF.  -  Sectional  Efficiency 
SECT.  MN  -  Sectional  Mach  Number 

M/Mcrit  “  Ratio  of  sectional  Mach  Number  to  sectional  critical  Mach 
Number 


9.  Error  Messages 

"Trouble  in  Alpha,  Beta  Iteration - "  -  Occasionally  there  is  trouble  in 

the  a  ,  /3  propeller  iteration  convergence  process.  Rerun  by  changing 
the  operating  blade  angle  by  a  small  amount. 


"Off  Airfoil  Data"  -  The  condition  exceeds  the  angle  of  attack  limitation  of 
the  airfoil  data. 


"Phi  Is  Greater  Than  180  Degrees - "  -  Usually  this  is  an  indication  of 

a  ,  (3  iteration  trouble. 

"Illegal  Number  of  Blades"  -  Computations  are  limited  to  2,  3,  4,  5,  6,  7 
and  8  bladed  propellers. 

"Error  in  Input  -  Card  Not  Labelled  and  Not  Covered  By  Cards  10  or  36 
thru  40"  -  Check  that  the  number  of  condition  cards  agree  with  "No.  Cond.  " 
on  card  10  and  that  cards  36  thru  40  are  followed  by  only  one  card  labeled  in 
column  6. 

"Trouble  in  Establishing  Circulation  Convergence"  -  Occasionally  there-  is 
trouble  in  the  circulation  iteration  convergence  process. 

"Lambda  Limits  Exceeded"  -  The  X limits  are  .25  4X41.00. 

„  "Mu  Limit  Exceeded  for  Characteristic  Function"  -  The  p  limits  are  .75  i  (i 
5  .998. 


The  output  for  the  sample  cases  are  included  in  Fig.  4a-4c. 


G.  Running  Time  Estimates 

Twenty-five  performance  points  are  computed  per  minute  on  the  Univac  1108. 
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SAMPLE  OUTPUT  FOR  HAMILTON  STANDARD 
SAMPLE  CASE  FOR  DEFINED  SHROUD  AND  P 

HS  COMPUTER  DECK  H193 
HS  SHROUDED  PROPELLER  PERFORMANCE  I 
HAMILTON  STANOARD 
WINDSOR  LOCKS* CONN. 

1967 

1  ROSE  WCROBEL  10/13/67 

2  SAMPLE  INPUT  FOR  HS  DECK  H193 

****  PROPELLER  CHARACTERISTICS  ***« 

3  BI-3WT 


NO .OF  BLADESs  3.  AF=  168.0 

DIAMETER  FT.s  2.4990  CLls  .4000 

HUB  X  =  .2500 


x= 

.9903 

.9493 

.8797 

.7875 

.6807 

.5693 

.4626 

•  < 

T/Bs 

.0320 

.0420 

.0570 

.0770 

•  1040 

.1380 

.1770 

•  4 

8/0= 

.1192 

.1165 

.1125 

.1065 

.1000 

.0928 

•  0862 

.1 

DES  CL= 

.1760 

.3390 

.4360 

.4910 

•4960 

.4700 

.4170 

t « 

DELTA  •= 

•5.20 

-4.70 

-3.50 

-1.25 

3.30 

9.40 

16.30 

2: 

****  SHROUD  CHARACTERISTICS 


SHROUD  NO.  1.  LAMBDAS  .6070 

XP-BARs-,1023  MU  S  .9110 
SHROUD  INNER  SURFACE  DIAMETER  FT.s  2.5000 
SHROUD  REFERENCE  DIAMETER  FT.s  2.7377 
RIEOELS  FACTOR  LIMIT  s  .1875 
AREA  RATIO  s  1.1000 

T/C  CONTRIBUTION  TO  VORTICITY  (THICKNESS  COEFF.)=  .5270  .2506  -7, 

SLOPE  OF  MEAN  CAMBER  LINE  (6LAUERT  COEFF.lS  >.5100  .4742 

****  CENTERBODT  CHARACTERISTICS  **** 

CONTRIBUTION  TO  VORTICITY  (6LAUERT  COEFF.lS  *.0930  >.0336  .01 


****  CALCULATIONS  ARE  BASED  ON  BOTH  PROPELLER  AND  SHROUD  CHARACTERISTICS 


****  IN  THE  SUBSEQUENT  MATRICES  THE  SUBSCRIPT  L  REFERS  TO  THE  ROW  AND  TH 


P(K*L)  DATA  LAMBDA"  .6070 


.09336 

.00000 

.04670 

•00000 

-.00002 

.00000 

.00 

.18672 

.11179 

.00000 

-.01857 

.00000 

.00013 

.00 

.03688 

•00000 

.02459 

.00000 

-.00618 

.00000 

.00 

.00009 

-.00619 

•00000 

.00911 

.00000 

-.00297 

•  00 

;  HSER  4776 

Volume  II 

MILTON  STANDARD  DECK  HI  93  - 

*ED  SHROUD  AND  PROPELLER  GEOMETRY 

COMPUTER  OECK  H193 
tOPELLER  PERFORMANCE  PROGRAM 
IMILTON  STANOARO 
NDSOR  LOCKS* CONN* 

1967 


m 

.5693 

.4626 

.3700 

.3005 

.2600 

m 

.1360 

.1770 

.2140 

.2450 

.2650 

p 

.0928 

.0662 

.0800 

.0760 

.0735 

.4700 

.4170 

.3510 

.2940 

.2570 

t 

9.40 

16.30 

23.10 

£6.70 

32.30 

|  *9270  .2506  >7.9200  30.5670  >64.6900  73.6190  >43.2900  10.2380 

I  >.5100  .4742  .5694  .3746  .2473  .0951  >.0456 


>•0930  >,0336  .0142  >.0007  -.0009  .0000 

t 
■ , 


.0000  -.0000 


(SHROUD  CHARACTERISTICS 


rs 

TO  THE  ROW 

ANO  THE  SI 

t 

■02 

.00000 

.00000 

Boo 

.00013 

,00000 

in 

•00000 

.00003 

poo 

-.00297 

,00000 

FIGURE  4A, 
(SHEET  1  OF  5) 
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SAMPLE  OUTPUT  FOR  HAMILTON  STANI 
SAMPLE  CASE  FOR  DEFINED  SHROUD  Al 


•*00025 

.00000 

-.00309 

.00000  .0047; 

•*00000 

.00003 

.00000 

-.00178  .0000 

*00000 

•ooooo 

.00001 

.00000  -.0011 

M<K*L)  MATRIX  UMBOAs  .6070 

.77577 

.42779 

-.00000 

.05230  -.00000 

•*24243 

-.00000 

.08170  • 

.00000  .01588  - 

.02740 

.06795 

-.00000  - 

.00439  -.00000  - 

•*00531 

-.00000 

-.01624  - 

.00000  -.00079  - 

.00278 

.00628 

-.00000 

.00430  -.00000 

-.00142 

-.00000 

-.00220  - 

.00000  -.00119  - 

.00076 

.00181 

-.00000 

.00080  -.00000 

-.00051 

-.00000 

-.00075  - 

.00000  -.00028  - 

S<K#L>  DATA 

LAMBDAS  . 

6070 

1.34181 

.67251 

-.00000 

-.00157  -.00001 

-.63085 

-.00000 

-.31730 

-.00000  .00191 

.00633 

.15863 

-.00000 

-.15604  -.00001 

.00374 

-.00000 

.10401 

-.00000  -,1023< 

.00008 

-.00051 

-.00000 

.07676  -.00001 

-.00006 

-.0Q000 

-.00019 

-.ooooo  .06io; 

-.00001 

-.00000 

-.00000 

-.00012  -.00001 

TT(K*L)  DATA  LAMBDAS 

.6070 

.02255 

.00000 

-.00781 

.00000  -.0018! 

.07153 

.04805 

.00000 

.00417  ,00001 

.01847 

.00000 

-.00641 

.00000  -.0011 

-.00088 

-.00320 

.00000 

.00040  .00001 

-.00002 

.00000 

-.00002 

.ooooo  .oooo: 

-.00009 

-.00012 

.00000 

-.00012  .00001 

.00000 

.00000 

.00001 

•ooooo  .oooo; 

****  IN  THE  SUbSeGUENT  MATRIX  THE  SUBSCRIPT  J  REFERS 


CHI(J'NU)  INTEGRAL  DATA 

LAMBDAS 

.607  MUS  .911  XPf 

.368797 

-.098303 

.043760 

-.070586 

.024980 

-.011631 

•  ( 

•162295 

-.071615 

.037169 

•  |{ 

.043807 

-.025107 

.014595 

•|| 

-.042131 

.024995 

-.016077 

•  ( 

'  -.023317 

.016541 

-.011489 

•  I 

•011405 

-.009108 

.005867 

«l( 

RAD.STA, 

VELC(NU) 

AS  NU  60ES  FROM  0 

TO  7 

.9903 

8.55389 

5,62314 

1.26969  -2.65074 

-1.63156 

.9493 

8.00916 

5,09583 

1.08626  -2.29601 

•1.21526 

.8797 

7.07703 

4,29719 

.80696  -1.59809 

-.73598 

.7875 

5.87233 

3.40182 

.53993  -.99936 

-.37977 

.6807 

4.58011 

2.55458 

.33623  -.58796 

-.17831 

.5693 

3.39057 

1.84241 

,20297  -.34065 

-.08217 

.4626 

2.41270 

1,28978 

.12265  -.20034 

-.03940 

.3700 

1,68862 

,89415 

,07656  -.12301 

-.02059 

.3005 

1.21798 

.64169 

.05152  -.08208 

-.01262 

.2600 

.97338 

.51153 

.03952  -.06279 

-.00916 

RAD.STAi 

VELH(NU) 

AS  NU  GOES  FROM  0 

TO  7 

*9903 

1.60236 

-.31274 

-.63864  .06054 

-.13508 

.9493 

1.40222 

-.29308 

-.72793  .04479 

-.12216 

.8797 

1.10414 

-.25748 

-.57043  .02503 

-.10112 

,7875 

.78950 

-.20963 

-.41068  .00916 

-.07669 

.6807 

.52496 

-.15820 

-.27832  .00023 

-.05414 

IliiLTON  STANDARD  DECK  HI  93  - 
ED  SHROUD  AND  PROPELLER  GEOMETRY 

00000  .00472  .00000  *.00176 

00170  .00000  .00292  .00000 

00000  r.00116  .00000  .00199 


10 

-.00000 

.00910 

-.00000 

-.00100 

10 

.01500 

-.00000 

.00050 

-.00000 

19 

-.00000 

-.00125 

-.30000 

.00089 

0 

-.00079 

-.00000 

.00003 

-.00000 

>0' 

-.00000 

.00042 

-.00000 

-.00012 

10' 

-.00119 

-.00000 

-.00003 

-.00000 

>0 

-.00000 

.00029 

-.00000 

-.00014 

10 

-.00020 

-.00000 

-.00001 

-.00000 

.00157 

-.00000 

-.00001 

-.00000 

.00000 

.00193 

-.00000 

-.00000 

i 15604 

-.00000 

.00051 

-.00000 

.00000 

-.10232 

-.00000 

.00019 

.07676 

-.00000 

-.07637 

-.00000 

.00000 

.06103 

-.00000 

-.06095 

.00912 

-.00000 

.05079 

-.00000 

.00000 

-.00185 

.00000 

-.00041 

.00417 

.00000 

.00093 

.00000 

.00000 

-.00114 

.00000 

.00011 

^00040 

,00000 

-.00004 

.00000 

.00000 

.00001 

.00000 

.00001 

i00012 

.00000 

.00004 

.00000 

.00000 

.00003 

.00000 

-.00002 

■SCRIPT  J  REFERS  TO  THE  ROW  AND  THE  SUBSCRIPT  NU  REFERS  TO  THE  COLUMN  **** 


>07  MUs  ,911  XPB=  *.10230 


1  .043780  -.024433 

.015646 

-.010819 

.007970 

S  -.011631  .006482 

-.004140 

.002873 

-.002080 

L  .037169  -.022480 

.014742 

-.010497 

.007697 

i  .01,4595  -.009236 

.006222 

-.004451 

.003320 

!  -.016077  .010445 

-.007399 

.005321 

-.004095 

i  -.011489  .007988 

-.005775 

.004285 

-.003307 

|  .005867  -.004348 

.003083 

-.002396 

.001816 

FROM  0  TO  7 

>45074  -1.63158  1.48951 

1.56171 

-.61415 

■29601  -1.21526  1.06647 

1.03086 

-.39701 

.59809  -.73598  .61247 

.51115 

-.19412 

■  9,9936  -.37977  .30118 

.20465 

-.07843 

■56796  -.17831  .13677 

.07286 

-.02874 

■34065  -.04217  .06184 
>20034  -.03940  .02936 

.02566 

-.01048 

.00969 

-.00408 

>12301  -.02059  .01527 

•00423 

-.00184 

;06208  -.01262  .00930 

.00210 

-.00100 

>06279  -.00916  .00684 

1 

.00175 

-.00075 

L 

fROM  0  TC  7 

,06054  -.13508  .01172 

-.03064 

.00276 

,04479  -.12216  .00960 

-.02816 

.00235 

f02503  -.10112  .00637 

-.02385 

.00166 

>00916  -,07669  .00319 

-.01852 

.00091 

>00023  -.05414  .00101 

-.01333 

.00035 

HSER  4776 
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FIGURE  4A. 
(SHEET  2  OF  5) 
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SAMPLE  OUTPUT  FOR  -HAMILTON  STANDJ 
SAMPLE  CASE  FOR  DEFINED  SHROUD  ANI 


5693  .33604 
4626  .21298 
3700  .13749 
3005  .09433 
2600  .07369 


11248  >.18255 
07698  >.11832 
05222  -.07763 
03698  -.05390 
02932  -.04232 


-.00312  -.03* 
-.00357  -.02* 
-.00299  -.01< 

-.00236  -.OK 
-.00196  -.001 
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5 

El 

32 


-.00312  -.02654  -.00005  -.00913  .00006 

-.00357  -.02413  -.00030  -.00608  -.00006 

-.00299  -.01601  -.00042  -.00406  -.00008 

-.00236  -.01119  -.00036  -.00285  -.00007 

-.00196  -.00681  -.00031  -.00225  -.00007 


s 

5 

\ 

! 

i' 


* 


FIGURE  4A. 
(SHEET  3  OF  5) 
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SAMPLE  OUTPUT  FOR  HAMILTON  STANDARD 
SAMPLE  CASE  FOR  DEFINED  SHROUD  AND  PI 


*+*  PERFORMANCE  *** 

CONDITION  J=  1.5087  THETA  3/4=42.000  MN=  .3053  CP=  .4292 

NET  THRUST  COEFF. V SHROUD  ♦  PROPELLER)  =  .2102 

SHROUD  THRUST  COEFFICIENT  =  -.0148 

SHROUD  FRICTION  DRA6  COEFFICIENT  =  .0216 

PROPELLER  THRUST  COEFFICIENT  =  .2250 

SLIPSTREAM  CONTRACTIONS  .95 

RATIO  OF  AVERAGE  DUCT  VEL./F^EE  STREAM  VEL.=  1.0957 
RATIO  OF  AVERAGE  SLIPSTREAM  VEL./FREE  STREAM  VEL.=  1.1317 


INDUCED  VELOCITY  CONTENT  **** 


PROP.  X  = 

.9903 

,9493 

.8797 

.7875 

.6807 

.5693 

CENTERBODY  OV/VO= 

-.0004 

-.0086 

-.0089 

-.0092 

-.0092 

-.0084  • 

SHROUD  T/C  DV/VQs 

.1316 

.1255 

.1152 

.1023 

.0891 

.0780 

VORTICITY  DV/V0= 

-.0712 

-.0680 

-.0646 

-.0621 

-.0605 

-.0592  - 

TOTAL  V/V0= 

1.0520 

1.0489 

1.0417 

1.0310 

1.0194 

1.0104  ; 

ASSUMED  V/V0= 

1.0514 

1,0484 

1.0414 

1.0308 

1.0196 

1.0107 

PROP.IND.G.  VP/V= 

.1940 

.1662 

.1363 

.1074 

.0873 

.0685 

PROP.IND.M.  VP/V= 

.0740 

.0880 

.0888 

.0813 

.0738 

.0628 

SWIRL  ANGLE  = 

3.6107 

4.2513 

4.3162 

4.C163 

3.7084 

3.2153  i 

****  GLAUERT  COEFFICIENTS  CONTENT  **** 


shroud 

shroud 

PROP. 

CENTER 

TOTAL 

NU 

CAMBER 

T/C 

CIRC. 

-BODY 

2-D 

3-D 

-0 

-.-5100 

-.0770 

.0814 

-.0930 

‘>.3676 

-.3719 

1 

.4742 

-.0245 

-.0176 

-.0338 

*4719 

.4449 

2 

.5894 

.0001 

.0467 

.9142 

.6501 

.6509 

3 

.3748 

-.0009 

.C152 

-.0007 

.3911 

.3917 

4 

.2473 

“,0081 

-.0156 

-.0009 

.2470 

02463. 

5 

.0951 

-.0054 

-.0103 

.0000 

,0956 

,0952 

6 

-.0456 

-.0055 

.0054 

.0000 

-.0193 

-.0296 

**♦*  SHROUD  SURFACE  VELOCITIES  AND  PRESSURE  COEFFICIENTS  **** 

— — - VELOCITY  COMPONENTS 

3-D  THICK. + 


SHROUD  X 

VORT.DIS. 

2-D  THICK. 

VORT.CONT, 

PROP  WAKE 

CB  ZFF 

Q 

loooio 

9.27679 

.19128 

-.03645 

.01551 

-.eo 

.00500 

1.16724 

.37954 

-.03476 

.01560 

-.00 

.01250 

.60794 

.43630 

-.03238 

.01573 

-.00 

.02500 

,29398 

.47207 

-.02889 

.01596 

-.00 

.05000 

.05831 

♦47070 

-.02350 

.01641 

-.00 

ON  STANDARD  DECK  H193- 
5HROUD  AND  PROPELLER  GEOMETRY 


53:  CP=  .4292 


1.1317 


§  .6807  .5693 

.  4626 

.3703 

,3005 

.2600 

| •*,009<i'  -.0084 

-.0067 

-.0039 

-.0005 

.0021 

§!  .0891  .0780 

.0698 

.0644 

.0613 

.0599 

|**.0605  -.0592 

-.0581 

-.0573 

-.0568 

-.0566 

gi.om  l.om 

1.0050 

1.0032 

1.0Q40 

1.0055 

.11.0196  1.0107 

1.0054 

1.0036 

1.0044 

1.0059 

f  .0873  .0665 

.0497 

.0340 

.0231 

.0174 

1.0738  .0628 

.0495 

.0365 

.0269 

.0216 

33.7084-  3.2153 

2.5809 

1.9296 

1.4356 

1.1585 

CIENTS  **** 


lOP  WAKE  CB  EPF. 


OUTER  SURFACE 
V/VINF  CPRESS 


INNER  SURFACE 
V/VINF  CPRESS 


-i 8568 

.2659 

;01551 

-.00530 

.9492 

.0990 

-.7374 

.4563 

.01560 

-.00530 

1.3318 

-.7737 

.0992 

.9902 

.01573 

-.00530 

1.4280 

-1.0393 

.5697 

.6755 

.01596 

-.00530 

1.4596 

-1.1303 

.9666 

.0619 

.01641 

-.00520 

1.4248 

-1.0300 

1.3152 

-.7299 

HSER  4776 
Volume  n 
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Hamilton 

Standard 


U 


WVISIO*  OF  UWITCO  A«*C*AFT  CO"*OAATOn 


fi 


SAMPLE  OUTPUT  FOR  HAMILTON  STANDAR 
SAMPLE  CASE  FOR  DEFINED  SHROUD  AND 


*07500 

-.03427 

.43353 

-.01987 

.01686 

.10000 

-.07184 

.38498 

-.01761 

.01731 

.15000 

-.07519 

.28996 

-.016C1 

.01814 

.20000 

-.04174 

.21918 

-.01672 

.01876 

1 

.25000 

-.00226 

.17644 

-.01840 

,01885 

.30000 

.03024 

.15560 

-.02027 

.01771 

.40000 

.06032 

.14512 

-.02316 

.00406 

.50000 

.05587 

.13347 

-.02466 

-.01566 

, 

.60000 

,04725 

.10324 

-.02552 

-.01891 

.70000 

.05566 

.06518 

-.02618 

-.01785 

.60000 

,07476 

.03178 

-.02604 

-.01607 

f 

.90000 

.06859 

-.01239 

-.02383 

-•01433 

.95000 

.04324 

-.06159 

-.02*71 

-.01352 

****  BLADE  ELEMENTAL  PRINTOUT  ***'» 

Js  1.5067 

THETA  3/4r  42. 

00  FREE 

STREAM  M.N.s  . 

3053 

X=  .9903 

.9493 

.8797  -.>7875 

.6807 

•  5< 

THETA=  36.80 

37.30 

38.50  40.75. 

45.30 

51 

ALPHAS  4,07 

4.28 

4.40  4.66 

5.86 

7 

PHI=  32.73 

33,02 

34.10  36.09 

39.44 

43 

BETAS  5.72 

5,08 

4.48  3.93 

3.71 

3 

PHI  0=  27.02 

27,94 

29.62  32.15 

35.73 

40 

CL3=  .5699 

.7147 

,7875  .8193 

.8684 

.81 

CD/CL=  .0446 

.0296 

.0162  .0162 

.0172 

.o: 

DCP/DX=  1.1067 

1.1997 

1.0619  .8285 

.6241 

.4! 

DCT/DX=  .5027 

.5806 

.5459  .4442 

.3427 

.2 : 

SECT.EFF.s  .6853 

.7301 

.7756  .8088 

.8283 

.8* 

SECT.MN-  .7032 

.6804 

.6413  .5899 

.5319 

.4' 

M/MCRIT=  .7738 

,7989 

.7089  .7587 

.7193 

»7< 

HSEE  4776 
Volume  II 
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.01686 

-.00520 

1.3605 

-.8510 

1.4275 

-1.0379 

.01731 

-.00530 

1.2981 

-.6652 

1.4408 

-1.0759 

. 01816 

-.00540 

1.2111 

-.4667 

1.3614 

-.8535 

.01876 

-.00570 

1.1738 

-.3777 

1.2573 

-.5807 

.01885 

-.00610 

1.1685 

-.3655 

1.1731 

-.3760 

.01771 

-.00660 

1.1767 

-.3845 

1.1162 

-.2459 

.00406 

-.00780 

1.1785 

-.3890 

1.0579 

-.1192 

“.01566 

-.00910 

1.1399 

-.2994 

1 • 0282 

-.0572 

-.01891 

-.01050 

1.0956 

-.2002 

1.0011 

-.0021 

-.01785 

-.01170 

1.0651 

-.1345 

.9538 

.0903 

-.01607 

-; 01250 

1.0519 

f.1065 

.9024 

.1857 

-.01933 

-.01280 

1.0052 

-.0105 

.8681 

.2465 

-.01352 

-.01270 

.9337 

.1282 

.8472 

.2822 

3053 


.6807 

.5693 

.4626 

45,30 

51.40 

58.30 

5.86 

7.45 

8.93 

39.44 

43.95 

49.37 

3.71 

3.50 

3.14 

35,73 

40.45 

46.23 

.6684 

.8844 

.8351 

.0172 

.0189 

.0277 

.6241 

.4288 

.2682 

.3427 

.2394 

.1497 

.8283 

18424 

.8421 

.5319 

,4747 

.4245 

.7193 

.7086 

.7196 

.3700 

.3005 

.2600 

65.10 

70.70 

74.30 

9.92 

10.36 

10.62 

55.18 

60.34 

63.68 

2.69 

2.26 

1.97 

52.49 

58.08 

61.71 

.7282 

.6048 

.5215 

.0400- 

.0577 

.0747 

.1558 

.0930 

.0647 

.0855 

.0488 

.0321 

.8278 

.7920 

.7480 

.3859 

.3610 

.3485 

.7050 

.6082 

.6085 
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a 


Hamilton  U 

DIVISION  O*  UN  IT CO  A\*C*Af 

Standard  fl* 


</~v. 


SAMPLE  OUTPUT  FOR  HAMILTON  STANDARD 
SAMPLE  CASE  FOR  DEFINED  SHROUD  AND  PF 


HS  COMPUTER  DECK  H193 
HS  SHROUDED  PROPELLER  PERFORMANCE 
HAMILTON  STANDARD 
WINDSOR  LOCKS.CONN, 
1967 

1  ROSE  WOROBEL  10/13/67 

2  GIVEN  PROPELLER  CIRCULATION 

****  PROPELLER  CHARACTERISTICS  **** 

3  B1-3WT 


NO. OF  BLADESs  3. 
DIAMETER  FT.=  2,4940 
HUB  X  =  .2500 


AF=  168.0 
CLI=  .4000 


X= 

CIRCULATIONS 


,9903  .9493  .8797  .7875  .6807  .5693  .4626 

.1489  .1769  .1788  .1632  .1484  ,1262  .0995 


****  SHROUD  CHARACTERISTICS  **** 


SHROUD  NO.  =  1.  LAMBDAS  .6070 

XP-BARs-,1023  MU  =  .9110 

SHROUD  INNER  SURFACE  DIAMETER  FT.s  2.5000 
SHROUD  REFERENCE  DIAMETER  FT.=  2.7377 
RIEGElS  FACTOR  LIMIT  =  .1875 

AREA  RATIO  s  1.1000 

T/C  CONTRIBUTION  TO  VORTICITY  (THICKNESS  COEFF,)=  .5270  .2506  - 

SLOPE  OF  MEAN  CAMBER  LINE  (GLAUERT  COEFF.>=  -.5100  .4742 

****  CENTERBODY  CHARACTERISTICS  *«■** 

CONTRIBUTION  TO  VORTICITY  (GLAUERT  C0EFF.)=  -.0930  -.0338 


****  CALCULATIONS  ARE  BASED  ON  SHROUD  CHARACTERISTICS  AND- GIVEN  PROPEL 


HSER  4776 
Volume  II 


I  DE 
RC 


TON  STANDARD  DECK  HI  93  - 
ISHROUD  AND  PROPELLER  CIRCULATION 


JUTER  DECK  H193 
SELLER  PERFORMANCE  PROGRAM 
|IIT0N  STANDARD 
SOR  LOCKS » CONN, 

1967 


.0] 


.5693  .4626  .3700  .3005  .2600 
.1262  .0995  .0734  .0540  .0435 


_  *5270  .2506  -7.4200  30.5670  -64.6900  73.8190 

“'•Wr.5100  ,4742  .5894  ,3748  .2473  ,0951 


.Oil 


)930  -.0338  .0142  -.0007  -.0009  ,0000 


LLE 


ANO  GIVEN. PROPELLER  CIRCULATION  **** 


-43.2900  10.2380 

-.0456 

.0000  -.0000 
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B 


Hamilton  U 

OVfSO*  Of  UNITKO  AMCftAFT  CO»PO*ATlOW 

Standard  R® 


SAMPLE  OUTPUT  FOR  HAMILTON  STAND  ARI 
SAMPLE  CASE  FOR  DEFINED  SHROUD  AND  F 

*♦*  PERFORMANCE  *** 

CONDITION  JS  1.5067  MN=  .3053 

NET  THRUST  COEFF. (SHROUD  *  PROPELLER)  =  .2102 

SHROUD  THRUST  COEFFICIENT  S  -.0146 
SHROUD  FRICTION  0RA6  COEFFICIENT  s  .0216 
PROPELLER  THRUST  COEFFICIENT  s  .2250 

SLIPSTREAM  CONTRACTION^  .95 

RATIO  OF  AVERA6E  DUCT  VEL./FREE  STREAM  VEL.=  1.0957 
RATIO  OF  AVERA6E  SLIPSTREAM  VEL./FREE  StREAM  VEL.=  1.1317 


****  INDUCED  VELOCITY  CONTENT  ***# 


PROP.  X 

2 

.9903 

.9493 

.8797 

.7875 

,6807 

.5« 

CENTERB0DY  DV/V0= 

•.0069 

..0066 

-.0089  -.0092 

-.0092 

-.00 

SHROUD  T/C  DV/V0= 

.1316 

.1255 

.1152 

.1023 

.0891 

.07 

V0RTICITY 

DV/V0= 

-.0712 

..0660 

-.0646  -.0621 

-.0605 

-.05 

TOTAL 

v/vo= 

1.0520 

1.0469 

1.0417 

1.0309 

1.0194 

1.01 

****  6LAUERT  COEFFICIENTS  CONTENT  **** 


shroud 

shroud 

PROP. 

CENTER 

TOTAL 

NU 

CAMBER 

T/C 

CIRC. 

-BODY 

2-D 

3-D 

-0 

-.5100 

-.0770 

.0814 

-.0930 

-.3676 

-.3719 

.4742 

-.0245 

-.0176 

-.0338 

.4719 

.4449 

2 

.5894 

.0001 

.0466 

.0142 

.6501 

.6509 

3 

.3748 

-.0009 

.0152 

-.0007 

.3911 

.3917 

4 

.2473 

-.0081 

-.0156 

-.0009 

.2470 

.2463 

5 

.0951 

-.0054 

-.0103 

.0000 

.0956 

.0952 

6 

-.0456 

-.0055 

.0054 

.0000 

-.0293 

-.0296 

****  SHROUD  SURFACE  VELOCITIES  AND  PRESSURE  COEFFICIENTS  **+* 
- ......  VELOCITY  COMPONENTS  --• - — 


SHROUD  * 

VORT.OIS, 

3 

2-0  THICK. 

-D  THICK. + 
VORT.CONT. 

PROP  WAKE 

.00010 

9,27720 

.19128 

-.03645 

.01550 

.90500 

1.16730 

.37954 

-.03477 

.01559 

.01250 

,60797 

.43680 

-.03238 

.01572 

.02500 

,29401 

.47207 

-.02869 

.01595 

.05000 

.05833 

.47070 

-.02350 

.01640 

.07500 

-.03426 

.43353 

-.01967 

.01685 

.10000 

-.07182 

.36498 

-.01762 

.01730 

.15000 

-.07518 

,28996 

-.01602 

.01613 

.20000 

-.04173 

.21918 

-.01672 

.01675 

HSER  4776 
Volume  II 


ILTON  STANDARD  DECK  HI  93 

|D  SHROUD  AND  PROPELLER  CIRCULATION 


Unoz 

fr.oi46 

f.0216 

1.2250 


E  1,0957 

VEL.=  1.1317 


(7675 
0092 
1023 
0621 
0309 


.6607 

•.0092 

.0891 

•.0605 

1.0194 


.5693 

•.0084 

.0760 

-.0592 

1.0104 


.4626 

-.0067 

.0698 

•.0582 

1.0050 


.3700 

-.0039 

.0644 

-.0573 

1.0032 


.3005 

-.0005 

.0613 

-.0568 

1.0040 


.2600 

.0021 

.0599 

-.0566 

1.0055 


3-0 

76  -.3719 
19  .4449 
01  .6509 
11  .3917 
70  .2463 
56  .0952 
93  -.0296 


I  COEFFICIENTS  **** 


5  — - 

;♦  OUTER  SURFACE  INNER  SURFACE 


lt« 

PROP  HAKE 

CB  EFF. 

V/VINF 

CPRESS 

V/VINF. 

CPRESS 

r 

-.6566 

.2659 

[§« 

.01550 

-.00530 

.9492 

.0990 

-.7374 

.4562 

h77 

.01559 

-.00530 

1.3316 

-.7738 

.0991 

.9902 

■he 

.01572 

-.00530 

1.4281 

-1.0394 

.5696 

.6755 

1159 

.01595 

-.00530 

1.4596 

-1.1304 

.9665 

.0619 

H'l 

.01640 

-.00520 

1.4248 

•1.0301 

1.3152 

-.7290 

P67 

.01685 

-.00520 

1.3605 

-.6510 

1.4275 

•1.0378 

W62 

.01730 

-.00530 

1.2962 

-.6652 

1.4406 

-1.0758 

TT1 

.01813 

-.00540 

1.2111 

-.4667 

1.3614 

-.6534 

1172 

.01875 

-.00570 

1.1738 

-.3777 

1.2572 

-.5607 

FIGURE  4B. 
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Hamilton 

Standard 


y 

CH VISION  O*  UNtTlO  * jWC WAFT  COWPOWATION 

ft® 


SAMPLE  OUTPUT  FOR  HAMILTON  STANDARD 
SAMPLE  CASE  FOR  DEFINED  SHROUD  AND  PF 


25000 

-.00225 

.17644 

-.01841 

.01884 

W|( 

30000 

.03024 

.15560 

-.02028 

.01770 

••1 

40000 

,06032 

.14512 

-.02317 

; 00406 

•  l( 

50000 

.05567 

.13347 

-.02466 

-.01566 

•  |( 

60000 

.04725 

.10324 

-.02552 

-.01690 

»*( 

70000 

.05566 

.06518 

-.02618 

-.01784 

•  t  | 

60000 

,07476 

.03178 

-.02604 

-.01607 

-•t 

90000 

.06659 

-.01239 

-.02383 

-.01432 

-#< 

95000 

.04324 

-.06159 

-.02171 

-.01351 

H|  ( 

HSER  4776 
Volume  H 
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.oiee% 

-.00610 

1.1685 

-.3655 

1.1730 

-.3760 

.01770 

-.00660 

1.1767 

-.3845 

1.1162 

-.2459 

*00406 

-.00780 

1.1765 

-.3890 

1.0579 

-.1191 

-.01566 

-.00910 

1.1399 

-.2994 

1.0282 

-.0572 

••01690 

-.01050 

1.0956 

•-.2003 

1.0011 

-.0021 

-.01784 

-.01170 

1.0651 

-.1345 

.9538 

.0903 

-.01607 

-.01250 

1.0519 

-.1066 

.9024 

.1856 

-.01432 

-.01280 

1.0053 

-.0105 

.8681 

.2465 

-.01351 

-.01270 

.9337 

.1281 

.6472 

.2622 

FIGURE  4B. 
(SHEET  3  OF  3) 


Hamilton  U 

WVISON  O*  UN«T*0 

Standard  h® 


SAMPLE  OUTPUT  FOR  HAI 
SAMPLE  CASE  FOR  SHROl 


1  ROSE  WOROBEL  10/13/67 

2  SHROUD  ALONE 

3  B1 


HS  COMPUTER  DECK  H19 
HS  SHROUDED  PROPELLER  PERFORM Al 
HAMILTON  STANOARD 
WINDSOR  LOCKS* CONN. 
1967 


****  SHROUD  CHARACTERISTICS  **** 


SHROUD  NO.  s  1.  LAMBDAS  .6070 

XP-BARs-,1023  MU  s  ,9132 

SHROUD  INNER  SURFACE  DIAMETER  FT.s  2.5000 
SHROUD  REFERENCE  DIAMETER  FT.s  2.7377 
RIESELS  FACTOR  LIMIT  s  ,1875 
AREA  RATIO  s  1,1000 
CENTERBODY  X  IN  SPECIFIED  PLANE  s  .2500 

T/C  CONTRIBUTION  TO  VORTICITY  (THICKNESS  COEFF.)=  .5270  .2506 
SLOPE  OF  MEAN  CAMBER  LINE  (SLAUERT  COEFF.)=  -.5100  .4792 

****  CENTERBODY  CHARACTERISTICS  +*«■* 

CONTRIBUTION  TO  VORTICITY  (GLAUERT  COEFF.)s  -.0930  -.0338 


****  CALCULATIONS  ARE  BASED  ON  THE  SHROUD  ALONE  ♦*** 


HSER  4776 
Voltime  II 


ITPUT  FOR  HAMILTON  STANDARD  DECK  HI  93  - 
6E  FOR  SHROUD  ALONE 

i 

l 

jWPUTER  DECK  H193 
9PELUER  PERFORMANCE  PROGRAM 
illLTON  STANDARD 
DSOR  LOCKS. CONN. 

!  1967 


I 


;  .5270  .2506  >7.4200  30.5670  -64.6900  73.8190  -43.2900 

s'-. 5100:  .4742  .5894  .3748  .2473  .0951  -.0456 


10930 


-.0338 


.0142 


-.0007  -.0009  .0000 


.0000 


■ 


t 

i 


\ 

t 

i 

> 

i 


10.2380 


-.0000 


FIGURE  4C. 
(SHEET  1  OF  3) 


Hamilton 

Standard 


U 

DIVISION  OF  UN1TID  *j*C"*FT  CO»*>0*ATON 

fi® 


SAMPLE  OUTPUT  FOR  H/ 
SAMPLE  CASE  FOR  SHRC 

***  PERFORMANCE  *** 

CONDITION  MN=  .3053 

SHROUD  FRICTION  DRAG  COEFFICIENT  =  .0079 

SLIPSTREAM  CONTRACTIONS  .96 

RATIO  OF  AVERA6E  DUCT  VEU/FREE  STREAM  VEL.=  .9825 


****  INDUCED  VELOCITY  CONTENT  **** 


PROP.  X 

s 

.9903 

.9493 

.8797 

.7875 

.6807 

.56^ 

CENTERBODY  DV/V0= 

-.0084  -.0086 

-.0089 

-.0092 

-.0092 

-.001 

SHROUD  T/C 

DV/V0= 

.1319 

.1258 

.1155 

.1025 

.0893 

.071 

VORTICITY 

DV/V0= 

-.1181 

-.1145 

-.1102 

-.1065 

-.1032 

-•IOC 

TOTAL 

V/V0= 

1.0054  1.0027 

.9964 

.9869 

.9769 

.96; 

**•*  6LAUERT  COEFFICIENTS  CONTENT  **** 


shroud  shroud 

PROP. 

CENTER 

TOTAL 

NU 

CAMBER 

T/C 

CIRC. 

-BODY 

2-D 

3-D 

-0 

-.5100  -.0770 

.0000 

-.0930 

-.4490 

-.4644 

1 

.4742  -.0245 

.0000 

-.0338 

.4895 

.4456 

2 

.5894 

.0001 

.0000 

.0142 

.6034 

.5994 

3 

.3748  -.0009 

.0000 

-.0007 

.3759 

.3763 

4 

.2473  -.0081 

.0000 

-.0009 

.2626 

.2622 

5 

.0951  -.0054 

.0000 

.0000 

.1059 

.1055 

6 

-.0456  -.0055 

.0000 

.0000 

-.0347 

-.0350 

****  SHROUD  SURFACE  VELOCITIES  AND  PRESSURE  COEFFICIENTS  «** 


VELOCITY  COMPONENTS  - - 

3-D  THICK.* 


SHROUD  X 
•  0 

VORT.DIS. 

2-D  THICK. 

VORT.CONT. 

PROP  WAKE 

.00010 

11.58799 

.19128 

-.06053 

.00000 

.00500 

1.49560 

.37954 

-.05881 

.00000 

<01250 

.81715 

.43680 

-.05636 

.00000 

.02500 

.44391 

.47207 

-.05276 

.00000 

.05000 

.16751 

.47070 

-.04719 

.00000 

•07500 

.05778 

.43353 

-.04337 

■  .00000 

•10000 

.01049 

.38498 

-.04091 

.00000 

.15000 

-.00410 

.28996 

-.03879 

.00000 

.20000 

.02185 

.21918 

-.03879 

.00000 

.25000 

.05443 

.17644 

-.03958 

.00000 

.30000 

.07956 

•15560 

-.04037 

.00000 

.40000 

.09309 

.14512 

-.04072 

•00000 

.50000 

.07239 

.13347 

-.03955 

.00000 

•60000 

.05223 

.10324 

-.03802 

.00000 

KSER  4776 
Volume  II 


OUTPUT  FOR  HAMILTON  STANDARD  DECK  HI  93 
CASEFOR  SHROUD  ALONE 


•9825 


>875 

.6807 

.5693- 

.4626 

.3700 

.3005 

.2600 

1092 

-.0092 

-.0084 

-.0067 

-.0039 

-.0005 

.0021 

1025 

.0693 

50761 

50699 

.0645 

.0613 

.0599 

L065 

-.1032 

-.1004 

-.0980 

-.0963 

-.0951 

-.0946 

>869 

.9769' 

.9693 

.9652 

.9643 

.9657 

.9675 

3-0 

-.9644 

.4456 

.5994 

.3763 

.2622 

.1055 

-.0350 


Coefficients  **** 


OUTER  SURFACE 


INNER  SURFACE 


III 

* 

< 

* 

CB  EFF. 

V/VINF 

CPRESS 

V/VINF 

CPRESS 

-1.0697 

-.1443 

.00000 

-.00530 

1.1557 

-.3356 

-.9511 

.0954 

.00000 

-.00530 

1.4843 

-1.2030 

-.0951 

.9910 

.00000 

-.00530 

1.5477 

-1.3954 

.3939 

.8446 

.00000 

-.00530 

1.5515 

—1.4071 

.8101 

.3437 

.00000 

-.00520 

1.4897 

-1.2192 

1.1750 

-.3806 

.00000 

-.00520 

1.4111 

-.9911 

1.2980 

-.6649 

.00000 

-.00530 

1.3396 

-.7945 

1.3187 

-.7391 

.00000 

-.00540 

1.2413 

-.5407 

1.2494 

-.5611 

.00000 

-.00570 

1.1965 

-.4317 

1.1526 

-.3290 

.00000 

-.00610 

1.1652 

-.4047 

1.0763 

-.1585 

.00000 

-.00660 

1.1862 

-.4116 

1.0291 

-.0590 

.00000 

-.00780 

1.1897 

-.4154 

1.0035 

-.0070 

.00000 

-.00910 

1.1572 

-.3391 

1.0124 

-.0250 

.00000 

-.01050 

1.1070 

-.2253 

1.0025 

-.0050 

FIGURE  4C. 
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70000 

.05633 

.06518 

-.03679 

.00000 

80000 

.07651 

.03178 

-.03523 

.00000 

90000 

.07068 

-.01239 

-.03188 

.00000 

95000 

.04343 

-.06159 

-.02921 

.00000 

?  i 


1  HSER  4776 

1.  Volume  n 

BDR  HAMILTON  STANDARD  DECK  HI  93  - 
■SHROUD  ALONE 


r 

) 

*00000 

-i 01170s 

1.0730 

-.1519 

.9604 

.0777 

*00000 

-.0125C 

1.0606 

-.1248 

.9075 

.1764 

.00000 

-.01880 

1.0136 

-.0274 

.8723 

.2392 

i 

\ 

.00000 

-.01270 

,9399 

.1165 

.8531 

.2723 

! 

«■ 

f 

f 

j? 

I 

$ 

I 


FIGURE  4C. 
(SHEET  3  OF  3) 
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3. 0  SHROUD  GEOMETRY  COMPUTER  PROGRAM 


A.  Deck:  Hamilton  Standard  Deck  H194 

B.  Title:  Shroud  Geometry  Program 

C.  Purpose:  Shroud  camber  two  dimensional  Glauert  coefficients  En  and  shroud  thick 
ness  coefficients  An  are  computed  for  the  given  shroud  geometry.  The  results  are 
included  as  input  for  Hamilton  Standard  Deck  HI  93  to  compute  shrouded  propeller 
performance. 

D.  Analysis  Method 

Given  the  shroud  geometry  and  its  orientation  relative  to  the  shroud  center  line,  the 
mean  camber  line  and  thickness  ratio  are  defined  as  discussed  below.  The  mean 
camber  line  is  defined  as  the  locus  of  points  equidistant  from  the  upper  and  lower 
surfaces  of  the  shroud.  The  distance  from  the  camber  line  to  the  shroud  surface 
is  measured  along  a  normal  to  the  camber  line  as  shown  in  the  sketch  below.  , 


1/2T/C- 


UPPER  SURFACE 


LOWER  SURFACE 


Shroud  Camber  2-D  Glauert  Coefficients  are  defined  as 
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(Continued) 


const.  = 


-  1/2  for  v  =  0 

cos  (  v  (p  a)  for  v  =  1  to  6 


0  s  =  cos  (-xs/  x  ) 

Xg  =  Percentage  shroud  chord  from  leading  edge. 

(xs  =  0.  at  leading  edge  and  xs  =  1.  0  at  exit) 

X  =  Ratio  of  shroud  chord  to  shroud  reference  diameter  (diameter  to  shroud 
camber  line  in  propeller  plane). 

2.  Shroud  Thickness  Coefficients 
7 


t/c  =  a0 \nrs  + 2  An (xs) 

v  n=l 


where 


A0*2y~ 

RLE  =  Leadin§  edge  radius 
C  =  Shroud  chord 

T/C  =  Shroud  thickness  to  chord  ratio 

Xs  =  Percentage  chord  from  leading  edge  radius 

An  =  Shroud  thickness  coefficients 


Description  of  Input 


The  input  is  coded  as  specified  on  Fig.  5. 


The  slope  of  the  shroud  camber  line  is  represented  by  a  table.  Small  intervals  of 
xs  should  be  selected  where  the  slope  changes  rapidly. 

From  the  many  cases  run,  the  following  xs's  appear  to  well  define  the  shroud  T/C 


x8  (1)  =  1. 00 
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(Continued) 

Xg  (2)  =  .925 

xs  (3)  =  .8 
xs  (4)  =  .6 
xs  (5)  =  .4 

Xg  (6)  =  .2 

x8  (7)  =  .1 

A  sample  case  of  input  is  shown  in  Fig.  6. 

F.  Description  of  Output 

The  output  for  the  sample  case  is  shown  on  Fig.  7.  The  comment  card  and  the  in¬ 
put  camberline  table  are  listed.  Then,  for  the  81  intervals  used  in  numerical  inte¬ 
gration,  the  interpolated  slopes  are  listed.  It  is  adviseable  to  plot  this  data  to  be 
certain  that  the  camberline  is  properly  represented.  Fig.  8  shows  such  a  com-  ■ 
parison  for  the  sample  case.  The  listed  shroud  camber  2-D  Glauert  coefficient  are 
used  as  input  to  Hamilton  Standard  Deck  H193. 

The  shroud  thickness  input  prints  out  as  well  as  toe  shroud  thickness  coefficients 
(Input  to.  Deck  H193)  and  a  table  of  xs  versus  T/C  based  on  the  polynomial  fit.  The 
data  in  this  table  should  be  plotted  to  assure  that  the  shroud  thickness  is  properly 
represented.  Fig.  9  shows  the  comparison  for  the  sample  case. 

An  error  message,  "MATRIX  IS  SINGULAR",  means  that  the  internal  solution  of  a 
set  of  simultaneous  equations  has  yielded  zeros  for  all  coefficients.  Check  the  input 
for  errors. 

G.  Estimated  Running  Time 

On  the  Tjnlvac  1108,  the  running  time  is  10  cases  per  minute. 
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SAMPLE  OUTPUT  FOR  SHROUD  GEOMET 


HS  COMPUTER  DECK  HI 94 
SHROUD  GEOMETRY  PROGRAM 
HAMILTON  STANDARD 
WINDSOR  LOCKS'CONN. 
1967 

1  JOHN  FIDLER  Bl  CAMBER  AND  THICKNESS  10-17-67 

****  CALCULATION  OF  SHROUD  CAMBER  2-D  GLAUERT  COEFFICIENTS  **** 


AXIAL  LOC. 

INPUT  SLOPE 

AXIAL  LOC. 

INPUT  SLOPE 

.00000 

-.52500 

.10000 

-.13400 

•01Q0Q 

-.50000 

.12500 

-.05000 

.02000 

-.47400 

.15000 

-.01700 

.03000 

-.44100 

.17500 

-.00200 

.04000 

-.41300 

.20000 

.00000 

.05000 

-.37900 

.22500 

.00000 

.06000 

-.34100 

.25000 

.00000 

*07000 

-.30100 

.27500 

-.00600 

.08000 

-.25500 

.30000 

-.01200 

.09000 

-.20000 

.35000 

<-.02750 

AXIAL  LOC. 

INT.  SLOPE 

AXIAL  LOC. 

INT.  SLOPE 

-.00000 

-.52500 

.25569 

-.00105 

.00039 

-.52398 

.27300 

-.00544 

.00154 

-.52097 

.29067 

-.00971 

.00347 

-.51607 

.30866 

-.01444 

.00616 

-.50940 

.32694 

-.02001 

.00961 

-.50096 

.34549 

-.02602 

.01382 

-.49052 

.36428 

-.03227 

.01877 

-.47745 

.38328 

-.03830 

.02447 

-.45939 

.40245 

-.04341 

.03090 

-.43843 

.42178 

-.04567 

.03806 

-.41856 

.44123 

-.04645 

.04593 

-.39344 

.46077 

-.04599 

.05450 

-.36229 

.43037 

-.04457 

.06375 

-.32644 

.50000 

-.04250' 

.07368 

-.28493 

.51963 

-.04050 

.08427 

-.23276 

.53923 

-.03833 

.09549 

-.16386 

.55877 

-.03617 

.10734 

-.09927 

.57822 

-.03422 

.11980 

-.06060 

.59754 

-.03266 

.13284 

-.03572 

.61672 

-.03239 

.14645 

-.01983 

.63572 

-.03279 

.16060 

-.00673 

.65451 

-.03370 

.17528 

-.00193 

.67306 

-.03511 

.19045 

.00007 

.69134 

-.03696 

,20611 

.00011 

.70933 

-.03933 

.22221 

.00004 

.72700 

-.04215 

,23875 

.00036 

.74431 

-.04526 

****  SHROUD  CAMBER  2-D  GLAUERT  COEFFICIENTS  -  E0  THRU  E6 

**** 

-.50999  .47422 

.58942 

.37482  .24726 

09510  -.045 

****  CALCULATION  OF  SHROUD  THICKNESS 

COEFFICIENTS  **♦* 

, 

AXIAL  LOCATION  =  1.0000 

.9250 

8000  ,6000  ,4000 

.2000  .1000 

INPUT  T/C  =  .0000 

.0268 

0639  .1130  ,1419 

.1510  .1423 

****  SHROUD  THICKNESS  COEFFICIENTS  -  AO  THRU  A7  **** 

.5270  .2506  -7.4202  30.5666  -64,6876  73,8186  -43.2923  10,2375 
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COMPUTER  DECK  H194 
DUO  GEOMETRY  PROGRAM 
HAMILTON  STANDARO 
INOSOR  LOCKS > CONN. 

1967 

S7 


FFICIENTS  **** 


U.  LOC. 

>10000 

>12500 

>15000 

> 17500 

>20000 

>22500 

>25000 

>27500 

i30000 

>35000 

ft.  LOC. 
>25569 
>27300 
129067 
30866 
>32699 
>'39599 
>36928 
>38328 
90295 
92178 
S99123 
>96077 
j.48037 
>50000 
>51963 
>53923 
>55877 
57822 
59759 
61672 


INPUT  SLOPE 
-.13900 
-.05000 
-.01700 
-.00200 
.00000 
.00000 
.00000 
-• 00600 
-.01200 
«.02750 


AXIAL  LOC. 
.90000 
.50000 
.60000 
.70000 
.80000 
.90000 
.95000 
1.00000 


INPUT  SLOPE 
-.09300 
-.09250 
-.03250 
-.03800 
-.05700 
-.08100 
-.09100 
-.10100 


INT.  SLOPE 

AXIAL  LOC. 

INT.  SLOPE 

-.00105 

.76125 

-.00858 

-.00599 

.77778 

-.05205 

-.00971 

.79389 

-.05561 

-.01999 

.80955 

-.05927 

-.02001 

.82472 

-.06295 

-.02602 

.83940 

-.06655 

-.03227 

.85355 

-.07002 

-.03830 

.86716 

-.07333 

-.04391 

.88020 

-.07644 

-.09567 

.89266 

-.07934 

-.09695 

.90451 

-.08193 

-.09599 

.91573 

-.08421 

-.04457 

.92632 

-.08633 

-.04250 

.93625 

-.08829 

-.04050 

.94550 

-.09012 

-.03833 

.95407 

-.09180 

-.03617 

.96194 

-.09335 

-.03422 

.96910 

-.09476 

-.03266 

.97553 

-.09604 

-.03239 

.98123 

-.09718 

-.03279 

.98618 

-.09818 

-.03370 

.99039 

-.09903 

-.03511 

.99384 

-.09974 

-.03696 

.99653 

-.10029 

-.03933 

.99846 

-.10068 

-.04215 

.99961 

-.10092 

-.04526 

1.00000 

-.10100 

LTHRUE6  **** 
726  .09510 


-.09560 


•9000  .2000  .1000 
.1919  .1510  .1923 

*** 

6  -93.2923  10.2375 


FIGURE  7. 
(SHEET  1  OF  2) 
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SAMPLE  OUTPUT  FOR  SHROUD  GE 


.000000  .000000 

.050000  .115257 

.100000  .142300 

.150000  .150280 

.200000  .151000 

.250000  .149437 

.300000  .147384 

.350000  .145033 

.400000  .141900 

.450000  .137387 

.500000  .131083 

.550000  .122888 

.800000  .113000 

.650000  .101804 

.700000  .069725 

.750000  .077069 

.800000  .063900 

•bbOOOO  .049996 

.900000  .034920 

.950000  .016249 

1.000000  -.000001 


i-i  -  r 
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0  CENTERBODY  COMPUTER  PROGRAM 


A. 

Deck: 

Hamilton  Standard  Deck  H060 

B. 

Title: 

Centerbody  Induced  Velocities 

C. 

Purpose: 

This  program  computes  the  ratios  of  the  velocities  induced  by 

the  centerbody  on  the  shroud  surface  and  in  the  plane  of  the  propeller  to  the  free 
stream  velocity. 

D.  Analysis  Method 

The  method  of  sources  and  sinks  has  been  employed  to  approximate  the  desired  body 
shape.  The  method  of  least  squares  has  been  used  to  calculate  a  seventh  order  poly- 
nominal  representative  of  the  source-sink  distribution.  This  distribution  is  employed 
to  calculate  the  radial  and  axial  velocity  ratios  induced  by  the  centerbody.  This  analy¬ 
sis  method  is  explained  in  detail  in  Appendix  11. 1  of  Volume  I. 

F.  Restrictions 

The  analysis  is  limited  to  centerbodies  with  a  large  length  to  diameter  ratio  and  with 
the  trailing  edge  tapering  gradually  to  zero.  For  bodies  with  blunt  trailing  edges,  it 
is  essential  that  the  trailing  edge  be  extended  to  meet  the  restriction. 

G.  Description  of  Input 

The  following  illustration  defines  the  co-ordinate  system  used  for  obtaining  the  necessary 
input  parameters. 
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The  input  is  included  as  shown  on  Fig.  10  where: 


LAMBDA  -  Ratio  of  shroud  chord  to  shroud  reference  diameter.  The  shroud  reference  dia¬ 
meter  is  measured  at  the  plane  of  the  propeller  out  to  the  shroud  camber  line. 


ALPHABAR  -  Distance  from  shroud  mid-chord  to  centerbody  leading  edge  divided  by 
the  shroud  reference  radius,  a  is  positive  if  the  leading  edge  of  the  centerbody  is 
forward  of  the  shroud  mid-chord  line  and  negative  if  the  leading  edge  of  the  centerbody 
is  aft. of  the  shroud  mid-chord  line. 


BETABAR  -  Distance  from  shroud  mid-chord  to  centerbody  trailing  edge  divided  by 
the  shroud  reference  radius.  P  is  positive  if  the  trailing  edge  of  the  centerbody  is 
aft  of  the  shroud  mid-chord  line  and  negative  if  the  trailing  edge  of  the  centerbody  is 
forward  of  the  shroud  mid-chord  line. 


A  ZERO  -  The  value  of  the  source-sink  distribution  at  the  cencerbody  leading  edge  = 

Rle/2Rs  where  Rs  is  the  shroud  reference  radius  and  Rle  is  the  centerbody  leading 
edge  radius. 

PROP  LOG  -  Ratio  of  the  propeller  plane  location  (measured  from  the  shroud  leading 
edge)  to  the  shroud  reference  radius. 

MU  -  Ratio  of  propeller  radius  to  shroud  reference  radius. 

TRIG  -  Code  1.  for  last  case  and  0.  for  all  other  cases. 

Xp  -  Ratio  of  propeller  sectional  radius  to  propeller  radius.  These  ten  locations  in 
the  propeller  plane  correspond  to  the  locations  used  in  Deck  H193  for  which  the  axial 
velocities  induced  by  the  centerbody  are  required. 

//X cb's  -  The  number  of  points  which  will  be  used  in  the  least  squares  representation 
of  the  centerbody  by  the  seventh  order  polynominal. 

XCB  •  The  ratio  of  the  sectional  centerbody  length  along  centerline  to  the  shroud  re¬ 
ference  radius.  These  points  should  be  spaced  so  that  a  greater  number  of  points  are 
taken  in  the  areas  where  there  is  a  substantial  amount  of  curvature. 

REAR  -  The  ratio  of  the  centerbody  radius  (See  previous  illustration)  to  the  shroud  reference 
radius  (r/Rs).  The  centerbody  is  represented  in  the  program  in  the  form  of  a  table 
where  the  X^'s  are  listed  in  ascending  order  followed  by  the  corresponding  RBAR's. 

//Xg's  -  The  number  of  points  along  the  shroud  for  which  the  axial  velocities  are  to 
be  computed.  The  maximum  number  =  40. 

X8  -  Ratio  of  a  point  on  the  shroud  chord  line  to  the  shroud  chord.  The  Xs  -  0.  at  the 
leading  edge  and  Xs  =  1. 0  at  the  trailing  edge. 
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A  sample  case  of  input  is  shown  in  Fig.  11. 


Description  of  Output 


The  output  for  the  sample  case  is  shown  on  Fig.  12.  All  the  input  is  printed.  The 
calculated  RBAR's  are  printed  so  that  a  check  can  be  made  to  be  certain  that  the 
seventh  order  polynominal  adequately  defines  the  centerbody.  Fig.  13  shows  the 
comparison  for  the  sample  case.  If  the  fit  is  not  adequate,  select  the  points  to  better 
define  the  shape. 

The  coefficients  of  the  power  series  are  listed  as  well  as  the  centerbody  axial  and 
radial  induced  velocities  on  the  shroud  reference  cylinder  and  the  centerbody  axial 
induced  velocities  on  the  propeller.  The  Glauert  coefficients  are  generated  from  the 
radial  induced  velocities.  The  Glauert  coefficients  and  axial  induced  velocities  are 
inputs  to  Hamilton  Standard  Deck  H193. 

I.  Estimated  Running  Time 

On  the  Univac  1108,  the  running  time  is  6  cases  per  minute. 
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SHROUD  CHORD  TO  DIAMETER  RATIO  =  .6070 

ALPHA  BAR  =  1.1594 

BETA  BAR  =  4.6069 
A  ZERO  =  .01996 

NON-DIMENSIONAL  DOWNSTREAM  PROP  LOCATION  =  .4826 

PROP  DIAMETER/SHROUD  REFERENCE  DIAMETER  =  .9110 


AXIAL  LOC. 

INPUT  RBAR 

CALC. RBAR 

AXIAL  LOC. 

INPUT  RBAR 

.00000 

.00000 

.00000 

1.36300 

•240B0 

.00660 

.02378 

.02683 

1.38100 

.24200 

.01203 

.02740 

.03150 

1.40100 

.24330 

.01761 

.03360 

.03837 

1.41100 

.24400 

.02105 

.03690 

.04212 

1.42200 

.24570 

.02635 

.04170 

.04741 

1.44100 

.24700 

.03105 

.04610 

.05174 

1.46200 

.24780 

.03520 

.04910 

.05533 

1.47800 

.24920 

.03910 

.05210 

.05855 

1.49400 

.25050 

.04400 

.05560 

.06242 

1.51000 

.25180 

.06010 

.06650 

.07406 

1.52300 

.25300 

.08600 

.08250 

.09163 

1.54000 

.25350 

.11030 

.10030 

.10410 

1.55300 

.25400 

.13210 

.10360 

.11531 

1.57000 

.25520 

.15030 

.11540 

.12406 

1.58300 

.25600 

.17600 

.12050 

.13558 

1.60000 

.25610 

.19040 

.12630 

.14167 

1.61300 

.25620 

•22000 

.13540 

.15340 

1.63000 

.25625 

.23050 

.13940 

.15733 

1.64400 

.25640 

.24050 

.14140 

.16097 

1.66000 

.25780 

.25050 

.14500 

.16450 

1.67300 

.25850 

.26350 

.14850 

.16895 

1.69000 

.25950 

.27700 

.15100 

.17340 

1.70500 

,26000 

.28080 

.15350 

.17462 

1.72000 

,26020 

.29400 

.15700 

.17876 

1.73200 

.26050 

.30600 

.16020 

.18298 

1.75000 

.26100 

.31400 

.16280 

.18473 

1.76400 

.26150 

.32100 

.16550 

.18674 

1.78000 

.26200 

.33600 

.16800 

.19091 

1.79500 

.26250 

.35200 

.17100 

.19515 

1.81000 

.26350 

.36150 

.17380 

.19757 

1.82500 

.26450 

.37100 

.17640 

,19992 

1.85400 

.26520 

.38400 

.17840 

.20302 

1.88400 

.26600 

.39700 

.16050 

.20599 

1.91400 

.26720 

.40900 

.18240 

.20662 

1.94500 

.26780 

.42100 

.18450 

.21115 

1.96400 

.26820 

.43000 

.18700 

.21297 

1.98,500 

.26860 

.44000 

.18910 

.21493 

2.03000 

.27120 

.48400 

,19610 

.22275 

2.07000 

.27380 

.52750 

.20320 

.22923 

2.08000 

.27520 

.57200 

,20900 

,23466 

2.09200 

.27650 

.61600 

.21430 

.23892 

2.11000 

.27800 

.66000 

.21840 

.24216 

2.13000 

.28000 

CAI 


Standard  deck  ho60  (centerbody  program) 


TER  DECK  HO 60 
MOUCEO  VELOCITIES  PR06RAM 
WILTON  STANDARD 
P>SOR ' LOCKS » CONN • 

1967 


C. 

J 

✓ 

v. 


(PUT  RBAR 

CALC. RBAR 

AXIAL  LOC. 

INPUT  RBAR 

CALC.RRAR 

.24080 

.22215 

2.64500 

.42400 

.44328 

.24200 

.22169 

2.67800 

.43600 

.'■>5129 

.24330 

.22129 

2.71300 

.44700 

.45967 

.24400 

.22113 

2.74500 

.45750 

.46719 

.24570 

.22100 

2.77200 

.46900 

.47344 

.24700 

.22086 

2.80000 

.48100 

.47981 

.24760 

.22088 

2.83200 

.49000 

,48695 

.24920 

.22100 

2.86600 

.49900 

.49437 

.25050 

.22122 

2.90000 

.50900 

.50160 

.25180 

.22154 

2.92500 

.51700 

.50680 

.25300 

.22188 

2.95800 

.52700 

.51349 

.25350 

.22242 

2.98500 

.53600 

.51682 

.25400 

.22293 

3.01500 

.54400 

.52459 

.25520 

.22369 

3.04000 

.55100 

.52926 

.25600 

.22436 

3.07300 

.55700 

.53525 

.25610 

.22535 

•3.10000 

.56200 

.53999 

.25620 

.22620 

3.13500 

.56800 

.54591 

*25625 

.22742 

3.17000 

.57250 

.55157 

.25640 

.22652 

3.22500 

.58000 

.55995 

.25760 

.22969 

3.28600 

.58700 

.56846 

.25650 

.23108 

3.35000 

.59000 

,57649 

.25950 

.23276 

3.41000 

.59300 

.58316 

.26000 

.23434 

3.47000 

.59200 

.58898 

.26020 

.23602 

3.53000 

.59100 

.59393 

.26050 

.23744 

3.59000 

.58950 

.59801 

.26100 

.23968 

3.65000 

,58750 

.60120 

.26150 

.24152 

3.71500 

•aoouu 

•OUOOD 

.26200 

.24372 

3.78000 

.58500 

.60505 

.26250 

.24586 

3.64000 

.58100 

.60541 

.26350 

.24812 

3.90000 

.57800 

.60487 

.26450 

.25046 

3.96000 

,57500 

.60344 

.26520 

.25521 

4.02000 

.57200 

.60111 

.26600 

.26044 

4.08000 

.56800 

.59791 

.26720 

.26598 

4.14000 

.56200 

.59382 

.26760 

.27200 

4.20000 

.55700 

.58887 

.26620 

.27583 

4.26000 

.55100 

.58306 

.26860 

.28018 

4.32000 

.54400 

.57640 

.27120 

.26988 

4,39000 

.53600 

.56757 

.27360 

.29889 

4.45000 

.53000 

.55912 

.27520 

.30119 

4.51000 

.52300 

.54995 

.27650 

.30398 

4.57000 

.51700 

.53979 

.27600 

.30821 

4,63000 

.51100 

.52896 

.28000 

.31298 

4.69000 

.50000 

,51735 
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Hamilton  U 

_L  OiVtUOH  OF  UNIT  CO  AI*C"AFT  CORPORATION 

Standard  A* 


SAMPLE  OUTPUT  FOR  HAMILTON  STANDARD. DECK 


.70400 

.22240 

.24444 

2.14000 

.28150 

.31 

.74800 

.22500 

.24586 

2.15500 

.28250 

.31 

.79200 

.22730 

.24648 

2.17000 

.28410 

.32 

.83500 

.22800 

.24640 

2.19000 

.28600 

.32 

.88000 

.22850 

.24566 

2.20000 

.28800 

.33 

.92700 

.22850 

.24428 

2.20500 

.29080 

.33 

.97500 

.22850 

.24234 

2.23000 

.29300 

.33 

1.01400 

.22850 

.24044 

2.25000 

.29550 

.34 

1.05300 

.22850 

.23833 

2.27200 

.30000 

.34 

1.07800 

.22850 

.23701 

2.29500 

.30450 

.35 

1.09600 

.22850 

.23583 

2.30100 

.30600 

.35 

1.13000 

.22950 

.23379 

2.31200 

.30720 

.35 

1.16300 

.23050 

.23180 

2.32000 

.31400 

.36 

1.19000 

.23100 

.23019 

2.33500 

.32080 

.36 

1.21800 

.23150 

.22859 

2.35800 

.32250 

.37 

1.23600 

.23200 

.22759 

2.37500 

.32470 

.37 

1.25300 

.23300 

.22669 

2.40000 

.33300 

,38 

1.26800 

.23400 

.22593 

2.43200 

.34100 

.38 

1.28000 

.23450 

.22535 

2.46000 

.35100 

.39 

1.29100 

.23600 

.22464 

2.49000 

.36000 

.40 

1.30400 

<,23750 

.22427 

2.52000 

.37200 

.41 

1.32100 

.23800 

.22357 

2.55500 

.38400 

.42 

1.34000 

.23850 

.22287 

2.58500 

.39750 

.42 

1.35100 

.23950 

.22251 

2.61500 

.41100 

,43 

****  coefficients 

OF  POKER 

SERIES  REPRESENTATION  OF 

SOURCE  SINK 

DISTRIBl 

<*.006969 

•005256 

,070331 

-.014053 

-.026911 

.0 

AXIAL  LOC. 

VR/UI 

AXIAL  LOC. 

VR/UI 

AXIAL  LOC. 

VR/UI 

.00000 

.01795 

.25566 

.01753 

.76118 

•02S96 

.00039 

.01795 

.27297 

.01756 

.77772 

.02652 

.00154 

.01795 

.29063 

,01760 

.79383 

.02708 

.00347 

.01794 

.30862 

.01766 

.80943 

.02764 

.00615 

.01794 

.32690 

.01774 

.82466 

.02819 

.00961 

.01793 

.34545 

.01783 

.83934 

.02873 

.01381 

.01792 

.36423 

.03795 

.05349 

.02927 

.01877 

.01791 

.38323 

.01809 

.86710 

.02979 

.02447 

.01790 

.40240 

.01825 

.88014 

.03030 

.03090 

.01786 

.42173 

.01844 

.89260 

.03079 

.03805 

.01786 

.44118 

.01865 

.90445 

.03126 

.04592 

.01784 

.46072 

.01889 

.91568 

.03171 

.05449 

.01782 

.48031 

.01916 

.92627 

.03214 

.06374 

.01780 

.49994 

.01945 

.9362$ 

.03255 

.07367 

.01777 

.51957 

.01978 

.94546 

.03293 

■  At  T7U 

.  nont  A. 

neoAi 

.09548 

.01771 

.55871 

.02050 

.96190 

.03361 

.10733 

.01768 

.57815 

.02090 

.96906 

.03390 

.11978 

.01765 

.59748 

.02133 

.97550 

.03417 

.13282 

.01762 

.61666 

.02178 

.90120 

.03441 

.14643 

.01760 

•63565 

.02225 

.98616 

.03462 

.16058 

.01757 

.65444 

.02273 

.99037 

.03480 

.17525 

.01755 

.67299 

.02324 

.99383 

.03494 

.19043 

.01753 

.69127 

.02376 

.99652 

.03506 

.20608 

.01752 

.70926 

.02430 

,99845 

.03514 

.22218 

.01751 

.72693 

.02484 

.99961 

.03519 

.23872 

.01752 

.74424 

.02540 

1.00000 

,03520 

****  GLAUERT  COEFFICIENTS  FOR  CENTERBODY  EFFECT  **** 


-.092950 

-.033763 

.014213 

-.000735 

-.000857 

.000036 

PR0P.X 

.99030 

VA/UI 

-.008393 

HSEE  4776 
Volume  n 


(  STANDARD  DECK  H060  (CENTERBODY  PROGRAM) 


.26150 

.31538 

4.75000 

.49000 

.5f498 

.28250 

.31902 

4.81000 

.47800 

.49186 

.28410 

•32268 

4.87000 

.46700 

.47802 

.28600 

.32761 

4.93000 

.4S800 

.46344 

.28800 

.33010 

4.99000 

.44900 

.44813 

.29080 

433134 

5.05000 

.*‘3300 

.43210 

.29300 

.33760 

5.11000 

.41700 

.41534 

429550 

.34265 

5.17000 

.40000 

.39782 

.30000 

.34824 

5.23000 

.38300 

.37958 

.30450 

.35412 

5.30000 

.36500 

.35731 

>30600 

.35566 

5.36000 

.34700 

.33732 

;  430720 

.35648 

5.42000 

.32700 

.31650 

.31400 

.36054 

S. 48000 

.30750 

.29472 

.32080 

.36440 

5.54000 

.2*8050 

.27194 

1  .32250 

.37033 

5.60000 

.26000 

.24794 

l  .32470 

.37472 

5.65000 

.22300 

.22690 

.33300 

.38118 

5.71000 

.19480 

.20012 

I  .34100 

.38944 

5.78000 

.15600 

.16616 

r  .35100 

.39665 

5.84000 

.11470 

.13330 

|  .36000 

.40436 

5.86000 

.10030 

.12122 

I  .37200 

.41202 

5.89000 

.07520 

.10137 

\  .38400 

.42089 

5.91000 

.05560 

.08641 

c  .39750 

.42843 

5.96830 

.00000 

.00352 

.41100 

.43589 

Source  sink 

DISTRIBUTION  ***♦ 

S  -.026911 

.013632 

-.002388 

.000147 

-•026 

VR/UI 
j  .0259 


.02652 
.02708 
.0276*4 
,02819 
.02873 
.02927 
.02979 
.03030 
.03079 
.03126 
.03171 
i  .0321*4 
1  .03255 

.03293 
.03328 
.03361 
h  >03390 
.03417 
.03441 
.03462 
.03480 
.03494 
i  .03506 
.03514 
f  .03519 
’>  ,03520 


000857  .000036  -.000000  .000023 
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Hamilton  U 

DIVISION  Of  UNITIO  AIRCRAFT  CORPORATION 

Standard  A® 


SAMPLE  OUTPUT  FOR  HAMILTON  STANDARD  DEC 


.94930  -.006619 

.87970  -.008943 

.78750  -.009209 

.68070  -.009151 

.56930  -.008419 

.46260  -.006680 

.37000  -.003862 

.30050  -.000509 

*26000  .002152 

AXIAL  L0C.  VA/Ul 
•00010  -.005309 

•00500  -.005296 

.01250  -.005279 

•02500  -.005285 

.05000  -.005228 

.07500  -.005230 

.10000  -.005262 

.15000  -.005415 

.20000  -.005686 

.25000  -.006068 

.30000  -.006550 

,40000  -.007755 

.50000  -.009146 

.60000  -.010538 

.70000  -.011732 

,80000  -.012539 

,90000  -.012794 

.95000  -.012671 
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6.0  appendices 

6.1  FLOW  CHART,  SUBROUTINE  LIST,  AND  FORTRAN  IV  LISTINGS  FOR  HAMILTON 
STANDARD  DECK  H193 

Figures  14,  15,  and  16  contain  the  pertinent  data  for  Hamilton  Standard  Deck  H193. 
It  is  the  computer  deck  which  permits  shrouded  propeller  performance  and  shroud  • 
surface  pressure  distribution  computations. 
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LIST  OF  SUBROUTINES 


HAMILTON  STANDARD  DECK  HI 93 
SHROUDED  PROPELLER  PERFORMANCE 


MNH193 

ACHART 

AIR1 

DUMEY 

DUMAY 

GOODMN 

INPUT 

LEGEND 

TAR 

DATUM 
DA  TAM 
DA  TOM 
UNBAR 


Figure  15 
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FORTRAN  IV  LISTINGS  FOR  HAMILTONSTANDARD  DECK  HI  93 


C  MAIN  PROGRAM  FOR  HS  DECK  Hi 93 

DIMENSION  A A ( 8 ) • AKA ( J  0  > .ALPH( 10) .APBET ( 1 0. 7 ) .BCB ( 8 ) .BETA { 1 o ) . 

I B00( lO),C< lOl.COOCL Il0).CL1< tO).COCLN( 10)«CTAC( 10).0CPAPI10«6) « 
?DCP!N< 10.6) .OCT API  1 0 1 6 > »DCT INI  1 0 .6 >  »DECL ( 1 0 ) .DELTHI 1 0 > .OTHFT ( 1 0 > • 
3EFFSI 10) .EINTI7) .FT! 1 0 ) .G 1 1 0) .G I R( 10) .HOB I  10). IPRI 10) .PHI  1 10) . 
4PHI0I 10) .PXI ( 10).SM( 10).SR( 10) .Si  110) »S?( 10) .SK 10) .S4 1  1 0 ) . 
STABLES (43 ) *THET( 10) .THET34I t 0 > .TTHERM ( 50 )« TX ( 50 ). VACB ( 1 0 > . 

6V0VI |0.l0).X(t0).Xt(11 ) *ZJ< 10) *ZM( 10) . ZMCR I T ( 1 0 ) . ZWCROM (10). 
7ZMMCR ( 10) .ZMN( 1 0 ) . ZNMN ( 10) . Z5 ( 1 0 ) .CL AO ( 10) ..THETNI 10) .MSUBI3) 

8. GOOD ( 10) .CD( 1 0) «DCDCL( 10) 

DIMENSION  ZMM( I  0 > .SDCTAP ( 1 0 .6 ) .Z J2 ( 1 0 ) 


COMMON 

A 

•  aa 

.  ABOVE 

• 

AF 

• 

AKA 

• 

alcht 

COMMON 

ALPH 

.  ambda 

•  APBET 

♦ 

aplus 

• 

ASHRD 

A4A2 

COMMON 

BCB 

.  BELOW 

.  BETA 

• 

BLAON 

• 

BOD 

COMMON 

C 

•  CDOCL 

.  CHOICE 

• 

clao 

• 

CLI 

« 

CLI 

COMMON 

CL2 

.  CL  3 

.  COBET 

• 

COCLN 

• 

COPH! 

♦ 

count 

COMMON 

CPA 

•  CtA 

«  CT AC 

♦ 

CD 

COMMON 

0 

.  DCD 

,  DCPAP 

• 

DCPIN 

« 

dctap 

« 

dct  in 

COMMON 

DECl 

.  DEGCv 

.  dela 

• 

DELTAC 

• 

delth 

« 

DSHRD 

COMMON 

DTHET 

.  DMCRT 

,  DCDCL 

COMMON 

EFFA 

.  EFFS  ‘ 

.  EINT 

COMMON 

FAKE 

.  ft 

COMMON 

G 

.  G  IR 

.  GOOD 

COMMON 

HOB 

.  HOBSUB 

COMMON 

1 

.  IB 

,  1C 

• 

idl 

• 

ierror 

• 

i  hold 

COMMON 

I  OFF 

.  IP 

.  IPR 

♦ 

i  set 

• 

I  SET  1 

♦ 

1  set  2 

COMMON 

IT 

.  INCON  • 

COMMON 

JV 

COMMON 

kount 

COMMON 

L 

COMMON 

M 

.  MFINO 

•  MSUB 

• 

M6 

♦ 

M8 

COMMON 

N 

,  NMN 

•  NOF 

• 

NRECN 

♦ 

NSIZE 

* 

NSS 

COMMON 

PHI 

.  PH  10 

.  PI 

• 

PXI 

COMMON 

RADCV 

.  rfl 

COMMON 

SBETAl 

.  SBETA2 

.  SCO 

• 

SHRDNO 

♦ 

SHROD 

S  I  PH  I 

COMMON 

SM 

.  SR 

.  STHET1 

• 

STHET2 

• 

SUM 

« 

SI 

COMMON 

52 

.  S3 

.  S4 

♦ 

SS 

COMMON 

TABLE2 

♦  THET 

.  THETN 

• 

THET34 

• 

TRIG1 

♦ 

TRIG2 

COMMON 

TTHERM 

.  TX 

COMMON 

VACB 

.  vov 

.  V! 

* 

V2 

COMMON 

X 

.  XI 

.  XNSS 

* 

XPB 

COMMON 

Y  1 

.  Y2 

ZM  / 

COMMON 

ZIP! 

.  ZJ 

.  ZJI 

• 

• 

zhcrit 

♦ 

ZMCROM 

COMMON 

ZMMC.R 

«  Z>MN 

.  ZMS 

• 

ZMU 

« 

ZNMN 

♦ 

Z5 

C 

C  IC  IS  VARIABLE  WHICH  CONTROLS  WHICH  OF  A  POSSIBLE  10  CONDITIONS  IS 

C  BEING  CALCULATED 

C 

GIR( I >*.03333 
G!R(2> *.07472 
GIR(  .1)  =.  10954 
GIR(4  >*. 13463 
GIR(S)=. 14776 
GIR(6)=GIR(S) 

G I R (  7  >  =G  IR  ( 4  ) 

G I  R(  8 )  *G  IR (  3  ) 

G I R ( 9 ) *G I R ( 2 ) 

G I R ( I  0  )  =G I R ( 1 ) 

1  WRITE  (6.10) 

1 0  FORMAT  (1H1.47X.22H  HS  COMPUTER  DECK  H193/3BX.42H  HS  SHROUDFO  PROP 
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1ELLER  PERFORMANCE  PROGRAM  /50X.18H  HAMILTON  STANDARO  /49X.20H  WIND 
2SOR  LOCKS. CONN.  /57X.5H  1967  > 

20  IC  =  1 

CALL  INPUT 
KOUNT=0 
IK  =  0 
L 1  =  1 
I  OFF  = 1 
CALL  TAR 
I 0FF=0 

/  IF  I  SHR00-5. >30,30,25 
25  DO  26  1=1,10 
C(!)=0.0 
28  CONTINUE 

2MS=ZMN( IC) 

GO  TO  802 

AT  BEGINNING  OF  MAIN  ROUTINE  CHECK  FOR  COMPLETION  OF  COND.CALC. 

30  K=] 

!P=! 

IF  ( IC-NOF) 200,200. I 
200  ZJl-ZJUC) 

ZMS=ZMN< IC) 

00  204  1  =  1 . 10 

V Ov (  I  ,  1  )  =  1 .0 
204  CONTINUE 
JV=1 

I F  (  sHROD-5  .1206,802, 802 
206  DO  210  1=1,10 
210  TNET34I I )=SI ( I > 

CALCULATES  phio.g.ano  sectional  M.N. 

320  00  326  1=1,10 

326  232  t  I ) =  ZJt 

727  00  430  IF= 1,10 

340  AB0VF=ZJ2( IF )*VOV< IF, JV) 

BELOW=PI*X( IF) 

358  PH I o ( IF)=DEGCV*AtAN(ABOVE/BELOW) 

1 F ( ABOVE ) 362 , 368 , 368 
362  IF  (PH10( IF) >365,365,370 
365  PH[0( I F ) =360 ,0+PH 1 0 < IF) 

GO  TO  380 

768  IFIPHIOI  IF)  >370,380. ,780 
370  PHI 0 (  I F )  =  I  80 . O+PH 1 0 ( IF ) 

380  SR( IF)=AB0VE**2+8EL0W**2 
790  G ( IF ) =BLADN#3R( IF )/4 .0 

ZMM( IF)=2MS*SQRT(LP' IF) )/ZJ! 

430  CONTINUE 

LOOP  FOR  ALPHA  BETA  ITERATION  FOR  10  STATIONS 

440  DO  800  1=1,10 
GO  TO  445 
490  IERROR=0.0 

540  THET34I  IC)=THET34(  lO+OELTHl  IC) 

I F { KOUNT  >550,550,560 
550  FAKE  =  I  ,0 
560  I  OFF  =0 
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KOUNT  =KOUNT  + 1 

IF  ( (COUNT-  IF  IX I THETN ( 1C ) ) > 440 *21 40.2 MO 
445  t  =  t 

THET  < I )=THET34I IO+DTHETI  I > 

IB*8LADN 

460  apbet< i . ip>=thet< 1 i-phioi n 

ALPH< I  ) s •254AP0ET I t . IP J 
SETA ( I >*AP8ET< I.IP)--ALPHi I ) 
sbetai=beta{ i ) 

470  DO  770  I  T=  l  , ?0 

PH!  (  I  )  *PHI  0  {  D+BETA  (  1 1 
10L=t 

400  CALL  ACHART 

IFi IERROR >500.500. ^90 
500  ZM( I )=ZMM1 I ) *C0S I BETA ! I >*RADCV> 

520  CALL  AIR1 

INCON=tNCON 

I  OFF  IS  SET  EOUAL  TO  ONE  WHEN  OFF  AIRFOILS 

IF  ( 10FF)600,600.582 
502  IF  I IT~20)584,540.S40 
584  I  OFF -0*0 
600  RBET=BETA( I )*RA0CV 
COBET =COS<RBET> 

SIBET'StNIRBET > 

HOLD= ( A/( .01745*0001 III) 

620  CLI»HOLD*SIBET/COBET 
700  Y l * Y2 

705  TEMJ2*ZJ2I 1 >*V0V< I . JV> 

CALL  GOODMN  (TEMJ2,X< I >,BLAON.D.DSHRD,CL!) 

708  Y2=CL I -CL2 

|F(ABS(V2)-. 004)790. 790, 710 
7)0  IF< 17-2)720,750,750 
720  I F ( Y2 ) 730,730 ,740 
730  BETA!  I  )=BETA< I )+4.0 
GO  TO  760 

740  BETA! I )=BETA< I )-4.0 
GO  TO  760 

750  BETA!  I  )  =  (SBETA?-Y1*(SBETA1-SBETA?)/(Y2-YI  > ) 

IF(ABS<OFTA( I ) >-90,0)754,754,75) 

751  IF ( Y2  >753.753, 782 

752  BETA!  I  >=SBETAl-5.0 
GO  TO  784 

753  BETA  <  I  )  *S8ET  A1 +5,0 

754  ALPH(  I  )=APBtT<  I , IP) -BETA! I ) 

I F I ALPH ( I )+I6. 0)756. 760, 755 

755  IFIALPHI I  1-0.0)760,760,756 

756  IFIALPHI I ) >757,760,759 

757  IF t BETA! I ) ) 760.760, 75B 

758  BETA!  I  )=0.0 
GO  TO  760 

759  IFIBETAI I ) >758,760,760 

760  ALPHI  I  )=APBET( I . IP) -BETAl I ) 

SBET  A2=SBET  A  1 

SBET  A  1  =0ET  A I  l  ) 

770  CONTINUE 

WRITE  1 6.7B0  >Z J I .THET34I IC) ,XI I ) .ALPHI I ) 

780  FORMAT  (68HOTROUBLE  IN  ALPHA,  BETA  ITERATION  ZJI  THET34 

IX  ALPHA  /F  43,4,F7.2*2FI0,4  ) 
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GO  TO  490 

)  CU3 ( I )  =  ( CL  1 +CL2 )  *  •  5 
IF  ( IOFF >800.800.792 
»  I0FF=0 

WRITE  <6.795 >ZJ I ,THET34< IC> ,X< 1 ) *ALPH( I ) 

5  FORMAT  (50HOOFF  AtRFOIL  DATA  J  03/4  X  ALPHA 

1F28.4,F8.3.F7.4.F7.2  ) 

>  CONTINUE 

>  CALL  TAR 

IF  <  IOFF-M320.803.804 
5  IF  (SHROD-5. 0)805, 2090. 2090 
I  IF  (SHROD-5. 0)540, 2140, 2140 
i  I  OFF  =  0 

CALCULATES  CO.DCTDx.DCPDX 
!0L  =  2 

I  CALL  A  I R 1 
l  DO  860  1=1,10 
CDOCL  <  1  >=CD<  I )/CL3< 1 ) 

SIPHI =SIN(PHI ( I )*RADCV) 

C0PH1=C0S<PHI < I )*RAOCV) 

C0BET=C0S<BETA< I )#RAOCV> 

•  C0NS=C0BET**2 

DCT I N ( I . IP) =800 < I )#CL3< 1 )*G< I )*COPHI *CONS 

DCPINI  I , IP ) =DCT INI  I » IP ) *S IPHI »PI *x  < 1  ) /COPH I 

DCT API  I , IP) =DCTIN<  1 , IP) -BOO! I )*G< I  >*CONS*CD< I ) #S I  PH I 

DCPAP  <  I , I P ) =OCP IN (  I  .  IP  1 ♦BOD ( I >*G(  I  >*CONS*PI*X< I ) *CD( I  >»COPH! 

CONTINUE 

I NCON  = INCON 

CPA=0.0 

DO  2000  1=1,10 
CPA=CPA+GIR< I ) *OCPAP< 1,1) 

CONTINUE 

CPA  =  C.PA*(  1  .C-SCO) 

GO  TO  (2002.2004 ), INCON 

mL  =  3 

CALL  A  I R 1 

GO  TO  2008 

DO  2006  1=1,10 

DCDCL ( t ) =0.0 

CONT INUE 

DO  2010  I  =  t . | 0 

COCLN ( I ) =COOCL ( I ) +DCOCL ( I ) 

CORCDsCDl  I  >+ADS<  DCDCL  <  I  )«CL.3(  I  )  ) 

SDCT AP ( I ,  1  ) =DCT I N < I . 1 )  +  <DCTAP( I , )  ) -DCT INI  I  ,J  ) )*CORCD/CD(  I ) 
EFFS(  I  )  =  ( SOCTAP ( I , ]  )/OCPAP(  1,1 > )#2J?(  I  ) 

CONT INUE 
CTAC ( t ) =0.0 
CTA=0 • 0 

DO  2020  1=1.10 
C  T  A  =  C  T  A+G I R (  I ) *DC  T AP (1,1) 

C  T  AC (  1  )  =CT  AC ( I  )+G!R< I )*SOCTAP<  I , I  ) 

CONTINUE 

CTA  =  C.TA*<  1  .O-SCO) 

C T AC ( I  )  =CT AC ( I  )*<  I , O-SCO) 

FT ( 1  )  =CTAC ( I  )/CTA 
K0UNT=K0UNT+1 
I  OFF =2 
CALL  TAR 
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IF  (SHR00-5. 0)2120, 2140. 2140 
2i20  IF  (  IPRl  IC)  )2I25.21  25.2060 
2060  WRITE  (6,2070)ZJt .THFT34 I  1C) «ZMS 

2070  FORMAT  (17H0  ****  BLADE  ELEMENTAL  PRINTOUT  ****  //4H  J=F7.4,12H 

XTHETA  3/4=F6.2.20H  FREE  STREAM  M.N.=F6.4  ) 

WRITS  <6. BOBO) (X(I).I=1.1C>.( THETI  1 > • 1=1 < 1 0) • ( ALPH(  I > . I  =  1  , I  0 ) . 

XI  PHI  {  1  >  ,  1  =  1  ,  10)  .  (PFTAI  I  )  .  1*1  ,  10)  •  (PHICI  I  )  ,  t  =  l  .  10)  «■  (CL7I  1  )  .  1  =  1  ,  I  O)  . 

XICOCLNI I ) , 1  =  1 . I  0)  . (DCPAPI I , I  ) . 1  =  1 . 10) . (SRC TAPI  1.1). 1  =  1. 10). 

XI EFFSI  I ) . 1  =  1 . 1 0) . (ZMI I ) . 1  =  1 . 10). (Z^MCR I  I ) • 1  =  1 . to ) 

2CB0  FORMAT  I 1H0. 15X.2HX=I0F8.4/12X.6HTHETA= 10F8.2/12x.6HALPHA=l0FR.2/ 

X 1 4X  *  4HPH I  =  1 0F8 .2/ 1 3x .5HRET  A  = 1 OFB.2/1 2x . 6HPH |  0= 1 0F8.2/ 1 4X . 4HCL3  = 

X 1  l'F8 .4/ 1 2X . 6HC0/CL -  1 OFS .4/1 1 X , 7MDCP/DX= 1 0FB.4/ 1 1 X .7H0CT/PX= 1 0FB.4/ 
X8X. ! OHSECT.EFF.^ 10F8.4/10X.8HSECT.MN=1 0F8.4/1OX.8HM/MCRI T=10FB.4  ) 
2125  IF  (KOUNT-IFIXITHETNI IC) ) )2I30. 2140.2140 
2130  THET34I !C)=THCT34( 1 C ) +DELTHI 1C) 

GO  TO  440 
2)40  KOUNT=0 
1C=!C-H 
GO  TO  30 
END 
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subroutine  achart 

O ! MENS  I ON  AA ( 8  )  ,  AKA ( lO) ,ALPH( 10) « APBET  < 1 0. 7 >  ,BCB ( 8 ) .BETA ( 10J • 

1 BOD( 1 0) «C( 10) « COOCL ( 1 0 ) ,CL3( 10) ,C0CLN( 10) » CTAC { 1 0 ) .DCPAP { 10»6) » 
2DCPINI I0t6) .OCT API  1 0.6) ,0CTIN( 10.6) «DECL( 1 0>»DELTH( 10) «DTHET( 10) . 
3EFFS( 10) .EINTI7) .FT! 10) .G< 10) .G1RI 10) .HOB I  1 0) » IPR< 10) .PHI  1 10) . 
4PHI 0 ( 1 0 ) ,PXI ( 1 0) .SMI  10) ,SR( 10) .Si ( 10V.S21 1 0) »S3(  10) .S4I 10). 
5TABLE2143) .THETt 10) .THET34 ( 1 0 ) .TTHERM ( 50 >  « TX ( 50 > .VACBI 10)  . 

6V0VI 10.10) .XI 10). XI 1 1 1 ).2JI 10) .ZMI 1 0 > . ZMCR I T 1 1 0 ) .ZMCROMI 10) . 
7ZMMCR 110). ZMN (10). ZNMN (10>.Z5(10).CLA0(10). THETN (10). MSUB I  3 ) 

8 . GOOD (10). CD (10) .OCDCL (10) 

DIMENSION  CURVE (1386) 


COMMON 

A 

AA 

• 

ABOVE 

AF 

9 

AKA 

ALCHT 

COMMON 

ALPH 

AMBOA 

♦ 

APBET 

aplus 

9 

ASHRD 

A4A2 

COMMON 

BCB 

BELOW 

• 

beta 

bladn 

9 

BOD 

COMMON 

C 

CDOCL 

• 

CHOICE 

CLAO 

9 

CL  1 

CL  1 

COMMON 

CL2 

CL  3 

• 

COBEt 

COCLN 

9 

COPHI 

COUNT 

COMMON 

CPA 

CT  A 

* 

ctac 

CD 

COMMON 

0 

DCO 

♦ 

dcpap 

OCPIN 

9 

DCTAP 

DCTIN 

COMMON 

DECL 

DEGCV 

• 

dela 

deltac 

9 

DELTH 

DSHRD 

COMMON 

dthet 

OMCRT 

t 

dcdcl 

COMMON 

EFFA 

EFFS 

• 

EINT 

COMMON 

FAKE 

FT 

COMMON 

G 

GIR 

• 

GOOD 

COMMON 

HOB 

HOBSUB 

COMMON 

I 

IB 

9 

IC 

• 

IDL 

9 

I  ERROR 

• 

IHOLD 

COMMON 

I  OFF 

IP 

9 

IPR 

• 

1  SET 

9 

I  SET  1 

• 

I SE  T  2 

COMMON 

IT 

INCON 

COMMON 

JV 

COMMON 

kount 

COMMON 

L 

COMMON 

M 

9 

MF  IND 

• 

MSUB 

M6 

9 

MS 

COMMON 

N 

♦ 

NMN 

t 

NOF 

NRECN 

9 

NSIZE 

• 

NSS 

COMMON 

PHI 

% 

PHIO 

9 

PI 

PXI 

COMMON 

RADCV 

9 

RFL 

COMMON 

sbetai 

9 

SBETA2 

9 

SCO 

SHRDNO 

9 

SHROD 

f 

SlPHI 

COMMON 

SM 

* 

SR 

9 

STHETi 

STHET2 

9 

SUM 

♦ 

St 

COMMON 

S2 

9 

S3 

9 

S4 

S5 

COMMON 

TABLE2 

9 

THET 

9 

THETN 

THET34 

9 

TRIG1 

• 

TRIG2 

COMMON 

ttherm 

♦ 

TX 

COMMON 

VACB 

9 

VOV 

9 

VI 

V2 

COMMON 

X 

♦ 

XI 

9 

XNSS 

XPB 

COMMON 

Y1 

• 

Y2 

COMMON 

ZIP1 

9 

ZJ 

9 

ZJI 

ZM 

9 

ZMCR  I  T 

9 

ZMCROM 

COMMON 

ZMMCR 

9 

ZMN 

9 

ZMS 

ZMU 

9 

ZNMN 

9 

Z5 

DATA  (CURVE 

I  )  .  1 

X 

1  , 

133  >/ 

X  3. , 1 3 , 

,13. 

X.0.,5., 

10. ,15. 

« £0 • i 25 • 9 3q 

.40. ,5o 

• 

•60 • • 70 • 

•  80*  • 

X.O. , . 1 0 

,.175,. 

25 

.35, .45 

9 

55, .65, 

• 

75998599 

9= 

,.9875, 

1 

• 

X.0.«0..0.,0.,0.,0.,0.»0.,0.,0..0.,0..0. 

X.O. , .0009B, .0017, .0024, ,00335, .0043. . 00525 . . 006 t 5 . . 0069? , , 0073 
X. .00565, .00505,0. 

X.O... 0019,. 0033,. 0047,. 0066,, 0085, .0103.. 01 18,. 0127, .0) 185 
X. .0062, .00590,0. 

X.O.. .0028, .0049, .0069, .0097,. 01 24 , . 0 1 46 , . 0 1 60 . .0 1 635 , .01455 
X. .00925, .00615,0. 

X.O... 0037 , , C064 , . 00905 ,.01 26, .01  57, .0179, .01 90, .01 86. .0159 
X. .0097, .00631 ,0. 

X.O. . .0047, .0080, .01  1 1  , .0151 , . 0 1  345 , . 02065 , .0209. .020, .0166 
X, .010, .00647,0, 

X»0. . .0057, .0096. .0131. ,0175. .0208. .0226. .0224 . .0206. .0 1 70 
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X.,0102,. 00660 ,  O  • 

X.0...0082, .0131 «. 01 73.. 021 5, .02405.. 02495. .0242 , . 021 7 , . 01 78 
X«. 0107. .00698.0. 

X/ 

OATA  (CURVE  (!)  .  1  =  134  .266  )/ 

X  0...0101 . .01 685.. 021 . .02485 . .0263 .. 0266 .. 0257.  .  0228.  .0184 
X. .0108. .00725.0. 

X.O. . .0133, .02045. .0247,. 0277, .0284 ,.0279. .0260.. 0230. .01855 
X. .01 13, .00750.0. 

X..0..01 67 , .0241 , .0279. .0297,. 0296. .0286, .0264 . .0232 ,. 0 1 86 
X. .0114,. 00770, .0 

X.O... 01 97.. 0273.. 0306.. 031 4,. 0306, .0290.. 02655,. 02335.. 01 87 
X.. 0115, .00778,0. 

X.O... 0226. .0301 . .0326.. 0327, .0312. .0292. .0266, .0234. .0188 
X. .01 16. .00778.0. 

X.4.,13.,13. 

X.0.,5*. 10. « 15. .20. *25. .30., 40. ,50. *60., 70. ,80*  , 90, 

X.O. . . 10. .175, .25. .35, .45,. 55. ,65, .75, .85. .95.. 9875,1  . 
X.0..0.,0..0..0.,0.,0.,0.,0..0..0.,0..0. 

X.O. . .00065. .001 1 . .0016. .00224 , .0029, .00352 . . 004 1 2 , .00472 
X. .00512. .00435, .00342,0. 

X.O. . .001 3. .00219. .00316, .00441 , .0057 ,. 0069 ,, 00808 «. 009 1 , .00916 
X.. 0066, .00463.0. 

X/ 

DATA  (CURVE  (11,1=  267  .383  )/ 

X  0. ..00188, .00325, .0047, .00625 , . 0084 , . 0 1 0 1 5 , .0 1 1 7 , .o 1 255 , . Ol  18 
X. .0080, .00541 .0. 

X.O.. .00242. .00429, . 006 1 5 . .0086 . . 0 1 1 0 . . 0 1 30 . . 01 45 . .0 1 50 , .0 1 355 
X. .00882. .00589,0. 

X.O.. .00298. .00529. .0076, .0 1 055 . . 0 1 34 . .0 1 54 . . 01 68 . .0 1 67 . . 0 1 46 
X, .0093, .00613.0. 

X.O., .00357, ,00629, .00893, .0123, .0154. .01 75..0I 845,. 01 79, .0152 
X. .00955, .00625,0. 

X.O., .00477, .00825. .01 16, .0 156 . .0  1 89, .0205 . . 0209, . 0 1 95 , .0 1 60 
X. .00983, .00625,0. 

,X,0. , .0064.  .01025, .01 45,. 01 86. .021 6..0227. .0224,. 0203. .0165 
X. .0101 , .00625.0. 

X.O. . .0083. .01315, .(J  1735, .021 4,. 0237, .0244, . 0235 ,. 0209 ,. 0 1 605 
X, .0101 ,  • 00625 , 0 . 

X.O. , .0107, .0160, .02015, .0237, .02555, .0257. .0242 . . 02 1 35 . , 0 1 72 
X,  .0101 , .00625,0. 

X.O. , .0132, .0187, .02255, .02555, .0267, .02635 , .02455 , .021  6, .0173 
X, .0101 . .00625,0. 

X/ 

DATA  (CURVE  (!).!=  384  ,5t6  )/ 

X  0. . .0156. .0210, .0246.. 0269, .0273. .0266. .02475, .0216. .0174 
X. .0101 , .00625,0. 

X«5.,13«,13. 

X , 0 . ,5, « 10. • 15, ,20, *25. ,30. ,40, ,50. ,60, ,70, ,80* ,90. 

X.O. .. 10, .1 75, .25, .35, .45,. 55, ,65 , . 75 , . 85, . 95 , .9075 , 1 . 

x.o..o.,o.,o..o..o..o..o.,o..o..o,,o..o. 

X.O. . .00048. ,00085, .001 1 8 . . 00 1 66 . , 002 1 5, .00265  * .003 1 2 . .00362 
X. .00395, .00365, .00266,0, 

X.O.. .00095, .00165, .00235.. 00328. ,00428, .00522, .00612, .00702 
X. .00732, .00568, .00380.0. 

X.O. . .0014 . .00245. .0035. .0049, .0063, .0077, .00898. .0099, .0098 
X. .00695, .00472,0. 

X.O. . .00186, .00325. .00462, .00645, ,00832. .0 1 00 ♦ ,0 1 1 6 . . 0 1 24 , . 0 1 1 6 
X, .00782, . 00532 , 0 , 

X.O. , .00228, .004  0. .0057,. 00795.. 0 102, .Ot 22. .0 1 36 . . 0 1 4 1  , ,0 1 27 
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X. .00835. .00571 .0. 

X.O... 0027.. 0047. .00672. .00*538. .011 9, .0140..0152, . 0 1 535 . . 0 1 355 
X. .00865, .00595,0. 

X/ 

DATA  (CURVE  <!),!=  517  ,649  )/ 

X  0. . .00348, .00608. .00865, .01 20..01 50. .01 70 . .01 78 , .0 1 71 , . O 1 46 
X..0091 ..00653,0. 

X.O., .00458, .00788. . 01 03. .0  M5 , . 0 1 73 , .0 1 89, . 0 1 92 , . 0 1 82 . . 0 1 53 
X. .0096. .00672.0. 

X.O.. .0058. .0097. .01 32. .01 70.. 01 96, .02065. .02045. .01905. .0157 
X.  .0099,  .00680.0. 

X.O... 0076.. 0120.. 01 565.. 01 90,. 02 105. .02 1 9. .021 85 . .0 193. . 01 58 
X. .0099, .00680.0. 

X.O. . .00958, .0142, .0 1775, .0206. .0220. .0225. .02145 , .01 96 ,. 0159 
X. .0099. .00680.0. 

X.O. ..0118, .0161, .01 92. .021 65 . . 0226 . . 0226 . . 02 1 6, . 0 1 97, .0161 
X. .0099, .00680,0. 

X«6.«13..13. 

X « 0 • . 5. « 1 0 • , 15. ,20. « 25. ,30. ,40. .50. .60. .70. ,80.»9o. 

X.O. .. 10. .1 75 , . 25 « .35. .45, .55, . 65 , • 75 . ,85 . • 95 , .9875 , 1 . 
X,0.,0.,0.,0.,0.,0..0..0.,0.,0..0..0.,0. 

X.O. . .00039, .00069, .00097, .00135, .001 73, . 00? 1 4. .00253, .00292 
X.  .00326. .00324, .00265,0. 

X/ 

DATA  (CURVE  (!).!=  650  .766  >/ 

X  0. . .000778, .00135, .00192, . 002675 . .00348 , .00426 , .005, .00573 
X. .00612, .00516, .00392.0. 

X.O. , .001  IS, .00201 1 . .00287, .00401 .. 0051 4 , .00629. . 00736 , .0032a 
X. .0084 , .00633, .00486.0. 

X.O.. .00152, .00266, .00379,. 0053. .00679, .00823 . .00956, .01 043 
X. .01009, .00721 ,.00529,0. 

X.O. ..001866, .00327, .00466, . 00656 , .00836 .. 0 1 009, . o 1 145, .01206 
X, .01 1 16, ,00785, .00602,0. 

X.O. . .0022. .00385, .0055, .00 77,. 00979, .01 l 65 , , 0 1 298 , . o 1 340 
X. .01208, .00824 , .0063.0. 

X.O... 00285,. 00499,. 00708,. 00985,, 01 229,. 01 438.. 01 547,. 01 529 
X..  01 334,. 00875,. 00651 ,0. 

X.O.  ,  .00363,  .00629,  . 00863 ,  .  0 1  202  .  .01432,  . 0 1 629 ,  . O  1 693 ,  .1)1638 
X.. 01 401 , .00907, .00673.0. 

X.O. , .00449, ,00765. . 0 1 064 , . 0 1 40 1 . .0 1 653 . . 0 1  785 « . O 1 806 • ,01711 
X. .01439, .00929, .00688,0. 

X.O. . .00556, .00918, ,01238, .01575, .0 1 8 . .01 9. ,pl 887 , .01753 
X,  .01458. .00941  , .0071 1,0. 

X/ 

DATA  (CURVE  (I)  .  1  *  767  ,899  )/ 

X  0.,. 00691 ,,01 088 ,,01412, .0171 1 ,,01896, .01 969. .0 192o* .01783 
X, .01468, .0094, .00699,0. 

X.O. , .00807, .01197, . 01 5 1 3 , . 0 1 792 , .01915. , 0 1 969 . . 0 1 924 . .0 1 785 
X. .01467, .00913, .00673,0. 

X , 7. , 13. » 13, 

X.O. ,5. , 10. , 15. ,20. .25, ,30. .40. ,50, *60, ,70. ,80. ,90, 

X..0..1 * • 1 75  « .25 . ,35 , ,45. ,55, .65, ,75, .85, .95. , 985  ,  1  • 
X«.0..0,.0,,0,.0,.0,.0,.0,.0,.0,.0«.0,,0 

X. .0. .000319, .000559, .0008, .0011 ..00141 , . 00 1 75 » .00207 , ,00238 
X. .0027, .00283, .00246, .00195 

X, .0. .000635, .001 1 1 , .00158, .00?2, .00285, .0035. .004 12 . .00473 
X, .00516. .00465, .00358, .00296 

X. .0. .000948. .00166, .00236. .0033, ,00424, , 005 1 8 . .00609. .00692 
X. .00725, .00575, .00440, .00376 

X.  .0,  .001252,  .00219,  .00313,  .004  38  .  ,0."56,  .00683.  .00796.  .00885 
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X  .  .00885, *0066. .00502, .00432 

,  X..0.. 00 154,. 00269.. 00385,. 00544, .00691 ,.00841 ..00970, .0104 
X, .0099, .0073, .0055, .00481 
X/ 

data  (Curve  <i>  ,  i  =  900  .1032  >/ 

X  .0. .00181 1 , .003174.00454. . 00637 ,. 0081 3 . .00977 ,. 0 1 1 15, .01 175 
X.  .01085, .00773, .00578, .00503 

X. .0. .002355, .00412, .00585, . 008 1 6 , . 0 1 02 , .0 1 225 , .0 1 35, . o 1 37 
X,  .01225, .0083, .00581 , .00483 

X. .0. .00292, .00508, .00725.. 01 00, .01 2, . 014 1 . .015, . 0148, .01295 
X . .00854 , .00603 , .00505 

X. .0. .00353. .0061 1 . .00864 ,.0! 1 6 • . 01 4 , . 01 55 . .01605, .0155. .01335 
X  ,  .00873, .00635 , .00549 

X, .0. .00412, .00712, .0099. .0131 , . 0 1 54 , , 0 1655 , . 01 685 . .0 1 60» .0136 
X . .00894 , . 00655 ,.00561 

X. .0, .005, .00839, .01 13. .01425, .01 63 . . 0 1 725 , .0 1 725 , .0 1 63 , . 0 1 37 
X«. 00894,. 00641 ,.00559 

X. .0. .00549. .00895. . 0 1 20 . .0 1 485 , . 0 1 63 . . 0 1 725 , .0 1 725 » .0 1  63 . . 01 36 
X.  .00860. .00607, .00512 
X , 8. ,13. ,13. 

X,0.,5.«10.,15.«20., 25 . , 30* , 40 . • 50 . ,60 • • 70 . , 80 . *  90 . 

X  «  0 . . • 1 0 , . 1 75  « .25  * . 35  « .45  * .55 , • 65 • «  75 , . 85  * . 95 , .9875 ,1,00 

x,0.,.0,.0,.0,.0,.0,.0..0,.0..0..0..0«.0 

x/ 

DATA  (CURVE  (!)  ,  1  =  1033  .1149  )/ 

X  0. , .000266, .000460, .000670, .00092 1 , .001 183, . 00 1 4  60 ,  . 00 1 736 
X. .00 1996,. 002270, .002430,. 00 1994,0. 

X.O. , .000538, .000930. .001 330, .001 855, .002400. .002950. .003480 
X. .0040 10.. 004430. .004 140,. 002780.0. 

X.O. . .000800. .001396, ,001985, .002790. . 00359p , .00439Q , . 005 1 80 
X, .005930, .006340. .005230.. 003340.0. 

X.O. , ,001050. .001844 , .002640 ,. 00371 0 .. 004740 . .005790 .. 006800 
X .. 007600 , . 007880 , ,006000 , . 003790 , 0 . 

X.O. • .001 301 , .002260, .003260, .004600. .095850, .007160. .008360 
X. .009120, .008920, .006690. .004 150.0. 

X.O. . .001538, .002670, .003850, .005410. . 00691 0 . .008380 .. 00°7 1 0 
X, .010400, .009850, .007 1 40 .. 004390 . 0 . 

X.O. , .00201 0, .003480, .004960 . .006930 . .008740, .01 0620 t .01 1900 
X. .01 2330,. 01 1310, .007760,. 004420.0. 

X.O.,, 002450,. 004250,. 006 160.. 008450, .0 1 0350 , .01 2320. . 0 1 34 1 0 
X. .013480. .01 2120, .008030.. 004630,0. 

X.O. ,.002910, .005070. .007020, . 009770. . 0 1 2020 , « 0 1 36 1 0 . . O 1 44 1 o 
X«  .01421  , .01258, .00824 ,.00491  ,0. 

X/ 

DATA  (CURVE  (!)  ,  1  =  1150  ,1282  )/ 

X  0. , .003280. .005820. .00821 0, .01 1 050. .013240, .0 1 4550 . . 01 5 1 90 
X. .014730, .012850, .008470, .005 110,0. 

X.O. , .003840, .006720, .009290, .012020. . 0 1 4030 , . 0 1 5200 , . 0 1 5600 
X, .015000, .01 2970. .008530, .005050.0. 

X.O, , ,004050, .007040. .009800. .012460, . 0 1 4 050 . . 0 1 5270 . . 0 1 5640 
X. .01 5040.. 01 2890, .008310, ,004840,0. 

X, 9. ,13. ,13. 

X.O. ,5, , 1 0. , 15, ,20. ,25, ,30, ,40* ,50, ,60. ,70, ,80* ,90, 

X< .0, . 1 , . 1 75 , .25, . 35 , ,45, .55, ,65, .75, ,85, .95, ,9875, 1  , 

X.0.,0..0.,0.,0..0.,0.,0.,0««0.,0.,0..0. 

X.O. , .00023, .00039, , 00058 .. 0008 1 . .00 1 05, .00 1 30. . 00 1 53. .00 1 77 
X. .00198. .00204, .00125.0. 

X.O. , .00047, .00081 , . 00 1 1 7 , ,0O 1 64 , ,00213, .00260, .00307, .00358 
X. .00394 , .00364, .00152,0. 

X.O. . .00070, .001 22, .00174 , .00246. .00320. . 00390 ,. 00462 . ,00528 
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X. .00567. .00475. .00169.0. 

X.O. . .00092. .00162. .00233. .00327. .00421 . . 005 1 2 . .00609, .00687 
X. .00717, .00540, .00185,0. 

X/ 

DATA  (CURVE  <!).!=  1283  .1386  )/ 

X  0. , .001 15, .00199, .00290.. 00403. .00519. .00633. .00743, .00822 
X, .00821 . .00603, .00198,0. 

X.O. . .00138, .00235, .00343, .00480. .00614. .00746. .00867, .00036 
X. .00909, .00645, .00212.0. 

X.O. . .00181 . .00306. .00440, .00617, .00791 , .00948 ». 0 1 067, .01117 
X, .01053. .00713, .00235.0. 

X.O., .00222. ,00379. .00537,. 00737, .00937, . 0 1 095 . .0 1 2 1 7, .012*0 
X. .01 153, .00752, .00252,0. 

X.O. . ,00263, .00454 , . 00632 , . 00852 , .0 1 058 . .01 21 7,. 01 315, .01323 
X. .01 207, .00780, .00267,0. 

X.O. . .00305, .00529, .00730 . .00959, .0 1 1 52 . . 0 1 30 1 . .01388, .01370 
X. .01233, .00800, .00279,0. 

X.O... 00343, .00587, .00809.. 01 043, .0 1 2 1 4 , . 0 1 352 . . 0 1 425 , .01393 
X. .01249, .00817, .00291 ,0. 

X.O.  .  .00375,  .00625,  .00853,  .01  073.  .01240.  .0 1  375 .  .0.1 44o ,  .01407 
X. .01255, .00827, .00302,0. 

X/ 

1  =  1 

302  PH1P0S=ABS(PHI ( I) ) 

IF(90.0  PHIPOS) 1 .3.3 

1  IF ( 1 80»  9-PH I POS ) 200 . 2.2 

2  PH 1 POS= 180. 0— PH I POS 

3  10= I B 

IF { 10-8)4,4.220 

4  GO  TO  (220,20,30.40.50.60,70.80) . IB 
20  K0EFF=1 

GO  TO  90 
30  KOEFF  = 1 99 
GO  TO  90 
40  K0EFF=397 
GO  TO  90 
50  K0EFF=595 
GO  TO  90 
60  K0EFF=793 
GO  TO  90 
70  KOEFF =991 
GO  TO  90 
80  KOEFF =1 189 

90  CALL  UNBAR  (  CURVE  (  1  )  .  KOEFF  ,  PH  I POS  ,.X  (  I  )  .  A  ,L  I M  I  T  ) 

GO  TO  300 

200  WRITE  ( 6 ,2  1  0 )  Z  J  I ,THET34(  1C) ,X(  1  ) 

210  FORMAT (35H0PH1  Is  GREATER  THAN  1 80  DEGREES  j=F8.4,6H  03/4=F9.2, 
13H  X=F5.4> 

1 ERROR= 1 
GO  TO  300 
220  WRITE  (6.230) 

230  FORMAT ( 23H0  ILLEGAL  NO.  OF  BLADES  1 
IERROR= 1 
300  RETURN 
ENO 
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SUBROUTINE  A1R1 

DIMENSION  AA(8>  «AKA( l0> ,ALPH( 10) « APBET ( 10,7) ,BCB(8) .BETA! 10) . 
1B0D( 10) ,C( 10) .CDOCU ( 1 0 ) «Ct_3< 10) .COCLNI 10) »CtAC ( 1 0 ) .DCPAP ( 10*6) * 
2DCPINC 10.6) .DCTAPI 10*6) .DCT IN { 10.6) »DECL( 1 0 ) .DELTHI 1 0 ) .DTHETI 10 
3EFFSI 10) .E1NTI7) .FT IlOl.GI 10) .GIRI 10 ) .HOB ( 1 0 ) «  t PR ( 1 0 ) .PHI  I  10) . 
4PHI0 (10) «PX 1(10). SM (10). SR (10). Si ( 10) «S2(10) ,S3< 10).S4( 10). 
5TABLE2 (A3) «THET ( 10) , THET34 (10) « T THERM (50)»TX( BO ) ,VACB( 10) . 

6VOV( 10. 10) .X( 10) .XI ( t 1 ) .2J( 10) .ZM( 10). ZMCR I T ( 1 0 ) . ZMCROM ( 10), 
7ZMMCR( 10) .ZMN( 10) ,ZNMN( 10) ,Z5( 1 0 > ,CLAO( 10) .THFTNl 10).MSUB(3) 

8. GOOD! 10) .CD( 10) «DCDCL( 10) 

DIMENSION  CMCR IT ( 123) .DMCRlT (23 ) .CLAZRO ( 156 ) 

DIMENSION  DUMMY! 1977) 


COMMON 

A 

«  AA 

.  ABOVE 

• 

AF 

• 

AKA 

♦ 

alcht 

COMMON 

ALPH 

,  AMBOA 

,  APBET 

• 

APLUS 

* 

ASHRD 

« 

A'4A2 

COMMON 

BCB 

,  BELOW 

,  BETA 

« 

BLADN 

• 

BOD 

COMMON 

C 

.  COOCL 

,  CHOICE 

♦ 

CLAO 

« 

CL  I 

« 

CL  1 

COMMON 

CL2 

.  CL  3 

.  COBET 

• 

COCLN 

• 

COPHI 

♦ 

COUNT 

COMMON 

CPA 

.  CTA 

,  ctac 

• 

CD 

COMMON 

D 

,  DCD 

,  OCPAP 

♦ 

DCP1N 

♦ 

DCTAP 

• 

DCTlN 

COMMON 

DECL 

,  DEGCV 

,  DELA 

• 

deltac 

• 

delth 

• 

DSHRD 

COMMON 

dthet 

,  DMCRT 

.  OCDCL 

COMMON 

EFFA 

.  EFFS 

.  EINT 

COMMON 

FAKE 

.  ft 

COMMON 

G 

,  G1R 

,  GOOD 

COMMON 

HOB 

.  HOBSUB 

COMMON 

I 

,  IB 

.  IC 

« 

IDL 

« 

I  ERROR 

• 

I  HOLD 

COMMON 

1  OFF 

«  IP 

,  1PR 

♦ 

I  set 

• 

I  SET  1 

* 

I  SET 2 

COMMON 

IT 

.  INCON 

COMMON 

JV 

COMMON 

KOUNT 

COMMON 

L 

COMMON 

M 

.  MFIND 

MSUB 

• 

M6 

% 

MB 

COMMON 

N 

,  NMN 

NOF 

♦ 

NRECN 

♦ 

N’SIZE 

% 

NSS 

COMMON 

PHI 

,  PHIO 

PI 

• 

PXI 

COMMON 

RADCV 

.  RFL 

COMMON 

SBETAl 

.  SBETA2 

SCO 

♦ 

SHRDNO 

% 

SHROD 

♦ 

SIPHI 

COMMON 

SM 

,  SR, 

STHETl 

• 

STHET2 

* 

SUM 

% 

SI 

COMMON 

S2 

.  S3 

S4 

« 

S5 

COMMON 

TABLE2 

.  THET 

thetn 

* 

THET34 

• 

TRIG1 

♦ 

TRIG2 

COMMON 

TTHERM 

.  TX 

COMMON 

VACB 

.  VOV 

VI 

• 

V2 

COMMON 

X 

.  XI 

XNSS 

XPB 

COMMON 

Y  1 

.  Y2 

COMMON 

ZIP1 

.  ZJ 

ZJ1 

« 

ZM 

• 

ZMCR  IT 

t 

ZMCROM 

COMMON 

ZMMCR 

.  ZMN 

ZMS 

ZMU 

t 

ZNMN 

« 

Z5 

COMMON/DuM/DuMMY 

DATA  (CMCRIT(1 >.I*1 .123)/ 

X  1..10..10. 

X. 0.0  .  .02 « .04 , ,07 . » | 1, <16. .22. .29. .35. .60 
X. 0.0. .10,  .20. .30. .40.  .55 . .70 * . B5 .1.0, 1.2 
X. 1 .0,. 90.. 85 l , .807, .776, .736, .704, .672, .645, .605 
X, .897. .853, .8135, ,782,. 757, .723, .693, .663. .634, .595 
X. .841 , .8125. .784, .760 . .7375 , .71 . .681 , .652, .622. .584 
X. .781 , .763, .748, .73, .7125, .687,, 661 . .6335, .6035, .567 
X. .7215, .713, .701 . .69 , ,675 . . 654 , . 63 1 , .604 . • 577 , .539 
X , ,66 1 , ,657 , .649, .639, ,63, ,61 1 , ,5905, .564. ,538, .503 
X. .5985, .596, .5905, .5835, .576, .559 , .5395 , . 5 1 5 . .490 . .459 
X, .530* .528, • 523 , ,51 8, .51 1 , .497  « ,480, .458. •  >36, .408 
X. .472, .469, .466,  .462, .455, .443, .428, .4 1 0 , • 390 . . 363 
X. .226. .2245. .222, .2 19. .216, .2 1 1 , .205 . . 197, . 1 96, . 1 79 
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X/ 

OATA  <DMCR1T< I) , 1=1 <23 )/ 

X  2. , 10.  ,0. 

XiO* *  1 • «2«  *3*  ,  4  •  ,5,5  ,7.  ,8.5,  t  0* • 15* 

X* . 1 108, .0896. .07, .0535 . .0308 , . 0248 , . 0 1 5 . .008. .0037, .001 
X/ 

OATA  (CLAZROt 1 ). 1  =  1  . 1561/ 

X  3., 13. ,10. 

X • 0. , . 04 , . 06 •.10,.14«.16..18<.20,.2i«.219,.24,.3,.6 

X , 0 . « • 1 • .2, .3, .42, .54, .68, .86, 1 . « 1 ,2 

X . 0 ...  1 5 , .266 , . 38 , .5 1 5 , .64 1 , . 78 1 , .887 , . 930 . • 988 

X.0. , . 135, .248, .364, .502. .63, .769, .892, .945, 1 .002 

X.O.. . 120, .233, .345. .481 . .606. .745. .872 ,. 939, .996 

X.0. . .088, . 186, .283, .406. .520. .648 , .777 , .857 , .92 1 

X.O., .049,. 122, .193, .283.. 367, .464, .571 , .659, .755 

X.0.. .033.. 087, . 138, .200. .255. .320, .383, .438,. 5 19 

X.0., .013..053. .083, .1 1 7 . . 1 45 , . 1 68 , . 1 95 , .2 1 8 , .243 

X.0. . .005, .023. .038, .048. .058, .068, .074 , .078, .083 

X«0.«0.*.01 ,. 015, .018,. 022 ,.027, .03,. 033  « • 035 

X.0. ,-.002. -.002,- .003. -.003. -.004. -.004, -.005, -.005, -.006 

X,0.,— .01 ,—.01 1 ,— .012,— .013,— .015,— .017,— .018, “.019*— .02 

X « 0 . ♦  —  .03,  —  . 035 ,  —  . 04 ,  —  .042,  —  .045,— .047  *  —  .05,  —  . 05  *  —  . 055 

X ♦ 0 . « —  • 086 ,  —  ,1,  —  .11,— ,12,  —  .127,  —  .133,  —  .137,  —  ,141,  —  .145 

X/ 

SERIES  16  INCOMPRESSIBLE 

I  *  I 

IC=!C 

INC0N=1 

102  GO  TO  (21,22,23). IDL 

lift  portion  of  airfoil  calculation 

21  APLUS=ABS( ALPH( m 
I F ( APLUS  -90.0)1 .1.2 
2  I  OFF  = 1 

1  CALL  UNBAR  < DUMMY < 1  )  ,  1 , APLUS »HOB ( I  )  . CL2 ,L I M  I T ) 
CL2=SIGN(CL2.ALPH( I ) ) 

4  CALL  UNBAR  ( DUMMY ( 1 ) , 577 . ALPH ( 1 ) .HOB { I ) ,DELTAC .LIMIT) 

28  DELTAC=  DELTAC#DECL ( I ) /« 7 
26  CL2=  CL2+0ELTAC 

CENTRIFUGAL  PUMPING  EFFECT  PROVISION  FOR  SERIES  16 

CALL  UNBAR ( DUMMY ( 1 ) , 1898, H0B( I ) , UNVAR , CLMCO ,L I M I T ) 

CALL  UNBAR ( DUMMY < 1 ) ,1915«H0B< I ) , UNVAR , DMAXCL ,L I M I T ) 

CALL  UNBAR ( DUMMY ( 1 ) , 1 932, HOB ( I ),UNVAR,SL0PE,LIM1t ) 

CALL  UNBAR ( DUMMY ( 1 ) ,1955.H0B< I ) , UNVAR , AMAX *L IM I T ) 
IF(APLUS-40. 0)5000,5020, 5020 
5000  I F ( APLUS-AMAX ) 5020 , 5020 ,5010 
5010  CL2=ALPH( 1 )#SLOPE+DELTAC 
5020  CLMAX=OMAXCL*(DECL< I ) **2 ) / 1 .4+CLMC0 
5025  IF  (ABS<CL2)-CLMAX)5032. 5032. 5030 
5030  CL2=S I GN (CLMAX , CL2 ) 

5032  IF  ( IC-1 15035,5035,25 
5035  IF  ( IT-1 >5040,5040,25 

5040  CALL  UNBAR  ( CMCR IT , 1 ,H0B ( I ) , DECL ( I ),ANS. LIMIT) 

X  I N= .5* ( 1 . C-X ( I ) >/R0D< I ) 

CALL  UNBAR  ( DMCR I T . 1 ,X I N , 0 • 0 , ANS 1 . L I M I T ) 
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ZMCR1T( 1 >*AnS+ANS! 

CALL  UNBAR  ( CLAZRO . 1 .HOB ( 1 > ,0£CL ( I ) .CLAO ( 1  > ,L IM 1 T  ) 
5045  FORMAT  (1H0.3F10.5  ) 

GO  TO  25 
C 

C  DRAG 

C 

22  DO  99  1=1.10 
APLUS=ABS< ALPH( 1 ) 1 

IF (HOB (II  -.04}  7,8.8 

7  HOBSUB  =.04 
GO  TO  500 

8  HOBSUB =H0B( I > 

500  CALL  UNBAR  (DUMMY ( 1  >, 789 • APLUS . HOBSUB , CD { t  ) ,L IM t T  ) 
1 F ( ALPH ( 1 ) )  9.9.10 
10  0ELA  =  — 64 »5*H0BSU8  +3.8 
GO  TO  18 

9  I F ( HOBSUB- . 07 )  17,17.16 
17  DELA=0.0 

GO  TO  18 

16  DELA=  50.7+H0BSUB-3.5 

IB  ALCHT=  ALPH ( 1 ) +DELA 

IF(ALCHT*ALPH( 15)14,14,15 

14  ALCHT=0.0 

15  CALL  UNBAR  (OUKMY (1  )  ,  1 1 81 , ALCHT .DECL ( 1 ) .DCD.L IM I T ) 
CD{ I ) =CD( I ) +DCD 

99  CONTINUE 
GO  TO  25 
C 

C  CALCULATION  FOR  COMPRESSIBILITY  LOSSES 

c 

23  DO  100  1=1,10 

I F ( I —9 )  47,48,48 

47  Z5( 1 ) =CL3( I >-CLA0( I > 

I F(Z5 ( I >+.237)4020.4020.4021 

4020  DMCRT=.!5*(Z5( I >+.3>-.006 
GO  TO  4022 

4021  !F(Z5< I )-»44)  4023,4023,4024 
4  023  DMCRT  =  -.0133*(ZS{  l  >  +  .  1  >  +  .00.? 

GO  TO  4022 

48  DMCRT=0.0 
GO  TO  4022 

4024  DMCRT=-.265*(Z5( 1 >-.5>-.02 

4022  ZMCROM ( I ) =ZMCR I T ( I ) +DMCRT 
ZMMCR  (I)  *  ZM( I > /ZMCROM ( I ) 

C 

C  ROUTINE  FOR  K  AS  A  FUNCTION  OF  CL3 

C 

I F ( ZMMCR (I)-l.O)  200,200,82 
32  I F ( ABS ( CL3 (  I > 1-.450  >4027,4027.4028 

4027  AKA ( I )=-I .525*ABS(CL3( I ) )+l .680 
GO  TO  4029 

4028  I F (ABS ( CL3 ( I ) >-.6)4030,4030,4031 

4030  AKA ( I )=-l ,33*ABS(CL3( l >-»45 ) +1 .0 
GO  TO  4029 

4031  I F ( ABS ( CL3 (  I ))-. 820  ) 4032 ,4032 . 4033 

4032  AKA( I > =“! . !3*( ABS(CL3( I > >-.5>+.S 
GO  TO  4029 

4  033  AKA( 1 )=-l .061* ( ABS(CL3( I >  >-.82)  +  ,55 

4029  DCDCL ( I ) *  AKA( 1 ) * ( ZMMCR ( I > -1 .0 ) 
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IF  ( DCDCL ( 1 >  *CDOCL (  !  )  )  203«203»I00 

200  OCOCL (  I  >=0.0 
GO  TO  100 

203  OCOCL ( I > =-OCOCL < l > 

100  CONTINUE 
25  RETURN 
END 
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C  DUMEY 

SLOCK  DATA 
COMMON /DUM/Du.MMY 
DIMENSION  DUMMY! 1977) 

DATA  (DUMMY  (!)  .  1  =  1  .160  >✓ 

X  10*. 40. .13. 

X.0..1.. 3. 5.4.. 4. 9. 6. 9. 7. .7. 7. 6.3. 9. 2. 10. 2. 11. 5. 12.4. 13.3. 14. 2 
X. 15.4,16.2, 17., 17.9,18.7,19.5,20.7,21 .5,22.5.23.5,24.5,25.5 
X  *  26.5 .28.5,31 .5,36. ,41 . , 45. .49. ,59. , 60 .5,72. «  65 . 0 . 27 .5 ,9o* 
X..0,.03,.06« .09. • 12  « • 15, . 1 8, .21 • .24 , .27, «3o, .33, .36 
X.0.,0.,0.,0.,0..0.,0.,0..0..0.,0.,0«,0. 

X.. 107, .104,. 100*. 092 • .085, .073, .065, .062, . 0^5  * ,045, *040. ,033 
X. .030 

X. .373, .367, .362. .332, .297.. 261 , .227, .202. . 1 74 , . 142, . 12 1 , . 102 
X. .091 

X. .425, .422, .41 3.. 380. .340.. 295, .260. .227, . 1 95 . . 1 58 , . 1 33 , . 1 1 2 
X. .099 

X. .475. .47. .452. .4 17,. 38. .33. .29 . .25 . .2 1 3. . 1 73. . 1 44 . . 1 2 . . 1 06 
X.. 679.. 669.. 642.. 593.. 537.. 471,. 409,. 342.. 28.. 22.. 172,. 143,. 12 
X. .732,  (i 717, ,692 • .638* .580,. 508, .441 , . 366 » . 298 • .232. • 179* • 148 
X. .123 

X ♦ ,773 ♦ ,773 « .755 , ,70 1 ♦ *636, .562 , ,486. .404 , .326. .252 ♦ • 1 91 , • 1 56 
X. .127 
X/ 

DATA  (D'.MMY  <!>  .  1  *  161  .290  >/ 

X  .785, .795, .775, .751 , .685..607, ,525, .439, .354 , .273, ,2o5, .163 
X. .132 

X  « , 790 , ,809  « .836. ,81 0, , 755  « ,678. • 590 , .496, .400. .31 , .235, • 180 
X. .141 

X ,  .788 ,  .808 ,  ,850 ♦  .852 «  .81  7,  *749,  .660 ,  .560.  .458., ,356,  .277,  •  209 
X..159 

X. .778, .792, .841 , .876 . .876. . 826 , .742 , .640 . • 53 1 . .425 , .335, .254 
X..191 

X . . 770 , . 780 , . 82 . . 876 . . 898 , . 867 , . 797 , . 698 . . 584 . . 474 , . 379 , . 289 
X. .218 

X.. 77,. 772,. 8,. 865,. 908,. 9,. 846,. 755,. 634,. (j? 1 ,,421  ,.325,.  246 
X, .773,. 77,. 783, .841 , .9o6 , .925 , .893 , . 8 1 , .605, .57,. 465, .363, .277 
X,.781,. 774 , . 770 , .812, ,89 , .943 . .936 , . 874 , .755 , .635 , .52  3 , .4 1 7 
X, .319 

X. .789, .778, .766, .794, .872,. 94 , .953 . . 908 . . 798 , .678 . .563, . 453 
X.  .349 

X, .796, .785, .767, .780. .052,. 93, .96, .933, .834, .721 , .601 . .488 
X, .378 
X/ 

DATA  (DUMMY  (I)  ,  I  =  291  ,433  )/ 

X  .808, .794, ,773, .771 , .832 , . 878 , . 958. .952, .871 . .768. .645, .526 

X,  .41  1 

X, ,819, ,805, ,782 , .77 , ,816, .883, .95, ,958, .9, ,607 , « 685 , .56, .44 
X? .831 , .817, .792.. 773. .802,. 861 , .934 , .957. .91 8. ,836 , .721 . .591 
X, .470 

X, .853, .84. .813. ,782 , .785 , .829 , .892 ,. 937 . .928 . .863 . .762 . .636 
X, .514 

X, ,870, , 855 , , 829 , ,792 , ,78, ,809 , ,063 , ,91 6, .924 , ,87 « ,70, .665 , .542 
X. .89, .877, .85, ,808, ,778, .789, .828, .881 , .907, .867, .789, .694 
X. .580 

X. .912, .9,. 873, .827,. 785, .776,. 8, .84 , .876, . 853 . .792 , .71  3, .613 
X, .936. ,925, .898,. 846. .796,. 775,. 775,. 802. .835.. 829,. 789, .724 
X.  .64 

X.  .962, .95, .925, .87, .816, .779, .757, .768, .791 , .798 , . 777 , .73 , .661 
X , .987 , . 976 , . 952 , .896 , . 839 , . 702 , . 756, . 745 , , 75 1 . . 765 ,.761,. 728 
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X • #676 

X. 1 ,04*1.027, 1 .003,. 953.. 393. .837,, 78, .748, , 725. . 7 1 3 . . 7 1 6 . .71 3 
X. .692 
X/ 

DATA  (DUMMY  (I)  .  1  =  434  .563  )/ 

X  1.115.1.1,1 .075, 1 .033,. 975, .91 3 .. 049, .806 . .767, .735, ,7q7, .69 
X. .695 

X. 1 .206,1 .188,1.167,1.128.1 .073 , 1 .01 . .95. .897, .852 . .805, .767 
X. .732, .705 

X. 1 .258.1 .245, 1 .225, 1.189,1.14,1 . 08 , 1 . 02 . .963 . *91 2 , .865 , .8 1 9 
X. .777, .741 

X« 1 .246. 1 .237,1 .218,1.185,1.144,1 ,089 , 1 . 03 . ,974 , . 92, .873 , .828 
X. .787. .756 

X. 1 .198, 1 .189, 1 . 174, 1 . 146. 1 . 1 1 ,1 <065. 1 . 0 1 5 , .96 . ,9 1 ..865,. 82 
X. .78. .749 

X. 1 .005,. 997, .987, .97! . .947, .91 , .866. .824 , .786, .749, .71 3, .682 
X. .650 

X, .97,. 962, .953, .937, .914 , . 876 , . 833 , . 795 , .759 , .723 . .691 ,.66, .62 
X. .639, .631 ,.625, .617, .595, .564,. 54 ,.5 19,. 5, .478, .457, .438, .421 
X, . 178. . 176. . 173. . 171 . . 168, . 138. . 152, . 147. . 144, . 14 .  ,134. . 128 


X, .97, 
X. .639 
X..178 
X.  .  123 
X. .089 
X, .063 
X/ 

DATA 
X  0..0 
X ,  1  1  *  , 
X.-18. 


(DUMMY  (I)  .  I  =  564  ,697  )/ 

•,0..0.,0.,0..0.«0,,0.,0..0.,0..0. 

1 1 . , 14. , 13. 

—  18. ,— 10.,— 6, ,— 4, «  —2 .,0.,4«,6. ,8. , 10., 12. *  15., 18. ,22 . 

.0, ,03, ,06,, 09,, 12, .15, ,18, .2 1 , .24 , .27, ,30, f 33, » 36 

,52 1 , .516, .500, ,478, ,448, .41 9, . 393 , ,366 , .331 , ,280* .230, . 1 77 


.087, ,084 


.548, .532 
.572,. 556 
.584, .567 
.587, .574 
.587, .573 
.564 , ,549 


data  (Dummy 

X  .549, 

.541 , .528 

X.  .048 

X , .526 , 

.516,  ,50** 

X.  .  I  12 

X. .502, 

.492, .481 

X. . 197 

X, .480. 

.471 , .461 

X.  /.240 

X  ,  .455 , 

,447, .437 

X, .272 

X,  .437, 

.430, .420 

X. .284 

X.  .423, 

.414, ,406 

X, .284 

,082, .079, .077, ,075* ,073, .071 ♦, 069, .067, , 065 


(  I)  ,  l  *  564  ,697  )/ 

0..0..0.,0.,0..0.«0..0. 


.51 0, ,468, .417, , 375 , • 34  0  ® • 298  « .253, , 2o3 , • 149 
.533, .400, .415, ,36 1,,312»»253«»2o9».157».1o6 
. 54,. 483,. 4 17,. 357,. 296*. 2 4,. 1 84,. 1 32,. 083 
.54  7,. 486, .422,. 357, . 292 , . 227, . 1 68 , , 1 1 2 , .059 
.546, .491 , .427, .365. .302 , . 235 , . 1 72 , . 1  1  0, .045 
.527 , .492 , . 455 ,.417,. 378 , . 332 . .267 , , 1 83 , . 1 03 

(  I)  ,  I  =■  698  ,832  )/ 

•510, ,486, ,462»,437,»4o7»» 375 , • 324 ,.231, .144 
.489, .472, .453,. 432, .4 1 l . , 302 . . 345 , .276 , , 1 94 
.469, .452, .439,. 420, .399,. 375, .342, .295, ,245 
,448, ,436, ,42! , .403, .382, .362, .337, ,307, ,275 
.425, .412, .397, .382, . 365, . 350 . • 334 , .3 1 4 , .295 

•  410,. 396 ,  ■* 384  ,  . 373 *  .356,  .342,  ,330,  ,317,  .303 

•  395 , .388* .377 , .367, ,356, ,344, .330* .31  7, ,302 


X  *  12., 29. ,12* 
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X*0#«l**2*«3*<4*5i7(t8*5<l0*»l2#5il4i5i!5*5»l6i5*!7t5il8*5t]9i5 

X  *21  .5,23.0,  25.5,  30.  ,  35  •  ,  40  •  ,  45  •  *55*  *  60  •  ♦  55  •  « 75  .,8o.,85..90. 

X i  •  04  ,  «  06 « .09 ,.12, .15*. 18,. 21.  .24 ,  .27*«3o**33,*36 
X/ 

OATA  (OUMMY  (!)  ,  1  =  833  .940  >/ 

X  .0030, .0039. .0051 . .0071 . .0100. .01 31 . . 0 1 68 . . 02 1 6 . .0262 . . 0330 
X.  .0400. .0470 

X.  .0042.  .004  2, .0051 . .0072.. 01 00 . . 0 1 37 . . 0 1 71  « .0219, .0268. .0330 
X. .0400. .0470 

X. .0069, .0057, .0058, .0079, .01 02 , . 0 1 40 , . 0 1 78 , .0220. .0270.. 0332 
X\t><0401  ,  .0472 

X,  .0143, .0088. .0068, .0081 ,.01 1 0 . . 0 1 47 . . 0 1 83 , . 0224 , .0279,. 0339 
X. .0403, .0479 

X. .0372,. 0228. .0129, .0098 , .0 1 2 1 , . 0 1 59 , . 0 1  "58 , . 0239 , .0290.. 0350 
X. .0413, .0487 

X. .0893. .0668. .0350. .0 1 93 . .0 1 52 . . 0 1 88 . .0228 . .0269. .0322, .0381 
X.  .0442. .0509 

X. . 1233, . 1022, .0595, . 0300 , . 0 1 98 , . 02 1 7 , .0250 . .0293 ,. 0349 ,. 0409 
X. .0469. .0530 

X. . 150. . 140, .0935, .0478, .0269, .0257,. 0282, .0327, ,038n. .0441 
X , . 0500 , «  0560 

X, .21 3. .201 , . 164 , . 1005. .0480. .0352, .0361 . .0400* .0448, .o5o2 
X, .0567, .0628 
X/ 

END 
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DUMAY 
BLOCK  DATA 
COMMON/DUM/DUMMY 
DIMENSION  DUMMY ( 1 977 ) 

DATA  (DUMMY  (I)  ,  I  =941  .1060  )/ 

X  .260.  .249. .218. .163. .0873. .0518, .0459. .0479, .0520. .0573 
X.  .0630.. 0689 

X. .282. .271 ..241. .191. .1147. .0673 . . 0530 . . 0525 . .0564 , .062 . .067 
X. .0724 

X. .307. .294 , .263.. 21 8,. 1465. .0886, .0647, .0588 . .06 1 3 . .067, .0717 
X.  .0768 

X. .331 . .319. .289. .242.. 178. .1 1 72. .0802. .0673, .0673. .0721 , .0765 
X. .0810 

X. .360. .341  . .312. .26 9, .208, .151.. 1018.. 0798  » .0744  « .0778 . . 0818 
X , .0858 

X. .388. .370, .338, .292, .238, . 107. . 129. .0960. .0839, . 0838 , .0876 
X.  .0903 

X. .448. .427, .392.. 349, .297, . 252 . . 1 99 . ,1489, . 1 1 2 1 , . 1 02 1 . . 1 0 1 0 
X.  .1019 

X.. 497,. 472,. 438.. 393,. 341,. 298.. 24 8.. 1 98,. 1 49.. 1 232,. 1 157 
X.  .  1  140 

X.. 576.. 551 ,.5 13,. 470.. 4 16.. 372,. 328.. 2 78,. 233.. 188,. 158,. 145 
X. .730, .704, .663. .61 1 , .559, . 5 1 6 , .470 . . 427 , . 388 . .347, .304, .276 
X/ 

DATA  (DUMMY  (I)  .  1  =  1061  .1180  >/ 

X  .922, .895, .848, .782, .731 , .682.. 641 . .601 « .555 . .5 1 2 . .470 . .442 
X.  1  .1 1  .  1  .083. 1 .032.. 968.. 91  1 . .858 , .81 2 . .769 , .71 7 , .67o» .627. .598 
X.  1  .28,  1  .255, 1 .207, 1 .143,1.089.1.028. .972, .923. .867, .81  9, .773 
X, .740 

X, 1 .558,1 .54,1 .502.1 .444,1 .379.1.310. 1 .250. 1.190,1 .133,1.086 
X , 1 • 04 1,1. 

X, 1  .661 , 1 .642.1 .61,1 .552,1 .487,1 .418.1 .363.1 .302.1 .250.1 .200 
X. 1.159,1.1 19 

X, 1.738, 1.7 18, 1,683. 1.629, 1.567, 1.5 13, 1.462, 1.403, 1.352, 1.303 
X,  1  .265,1 .229 

X. 1 .832,1 .819,1 .778, 1.731,1 .679, 1 .640. 1 .600,1 .554, 1.511,1 .469 
X, 1.428,1,397 

X , 1 . 864 , 1 ,850 ,1  .810,1,768,1.719,1 ,680  *  1 . 648 ,l»6ol,l. 56 O , 1 . 527 
X,  1  .487,1 .452 

X. 1 .88, 1 .87, 1 .83, 1 .789, 1.739,1 .705, 1.671,1 .628, 1.594,1 .560 
X, 1 .530,1 .499 

X. 1 .889,1 .88,1.84,1.791,1 .747,1 .713,1,68,1 .642,1 .610,1.581 
X, 1 .556.1 .527 
X/ 

DATA  (DUMMY  (I)  ,  I  =  1181  ,1321  )/ 

X  13. ,54. ,12. 

X , - 1 8, ,-16.5,-15. ,— 14..— 12.5,— 1 1 . ,—9,7 , —9 , .-8.4, — 8. , — 7 .7,— 7,2 
X»— 6. 9, —6,7,— 6.4,— 6,8, —5 . 9 , —5 ,3,— 4,5*— 3.8, —7. , “2 . ♦ — 1 ,, .5,2. ,3. 
X. 4.. 4.5, 5., 5. 5, 6.. 6. 5 .7.. 8. .9.5. 10.. 10.5. 1 l .5. 12.2.12.8. 13.8 
X, 14.3, 14.8, 15. ♦ 15,7 , 16.2 , 16,6, 16,9 • 1 7.3. 17 .8, 18,5, 19.5,21 . ,22, 
X.,0,. I, ,2, .3, .4., 5,. 6*. 7, .8, .9,1, .1,5 

X. .0,-. 005, -.01 ,-.015, -.02. -.0251 ,- .0-305 .-.0365,- . 0425 ,-. 0469 
X.-. 0508. -.0614 

X , .0 . - • 005 ,-,01 , -.01 49, -.02, -.025, -.0303, -.0362, -.O'!  1 8, -.0A59 
X.-. 0499. -.061 

X.O. .-.0034, -.0093, -.01 47, -.01 92. -.0242. -.0291 «-. 0348 ,-. 0400 
X.-. 04 39. -.0479, -.0600 

X.O.,— .0022,— ,0076,— ,0131 ,— .0173.— .0222,— .0269,— .0328,— .0376 
X.-. 04 16. -.0454, -.0581 

X.O..  .0028. -.00 19. -.0068. -.01  10. -.0161  ,  -  .02  1 5  . -.0276  .031  5 
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X  .-.0354.-.  0385, -.0522 

X.0.  , .0067. .0090. .0057.0. .-.0056. -.01 J 4 . - .0 1 78 »-. 02 1 2 . -. 02*4 
X.-. 0272. -.0388 
X/ 

DATA  (DUMMY  <!>,!=  1322  .1429  )/ 

X  0*. .0080. .0160. *0176. *0127, .0076. .0022 ,-. 004 1 .-. 0074 ,-. C  >99 
X.-. 0124, -.0184 

X.O.. .0080. .0170, .0221 . .021 7. .01 70. .0122. .0065. .0037, .0012 
X.-. 0012, -.0052 

X. 0... 0078.. 01 66.. 0230.. 0264,. 025 1 , .021 3 . .0 1 77, .0 1 48, .0 1 32 
X. .01 16. .0073 

X.0... 0076.. 01 58.. 0229.. 0274,. 0292.. 0274,. 0247,. 0221 ..0203 
X«. 0192, .0147. 

X.0...0073. .0152. .0222.. 0275,. 0307, .0310. .0289..0263,. 0250 
X. .0239,. 0202 

X . 0. « .0068. .0136. . 02  00 , .0267, .031 l , .0336, .0337, .0322.. 0308 
X. .0301 ..0272 

X.0. . .0069. .0124, .01 86. .0250. .0309. .0336. .0346 . .034  3 . . 033 1 
X. .0323. .0302 

X.0. . .0062. .01 1 7. .01 75. .0237, .0302. .0333. .0347. .0352. .0341 
X. .0334 , .0315 

X.0. , .0057. .0105. .01 59. .0217, .0287, .0321 . .0342 . .0354 ,. 0355 
X. .0347, .0334 
X/ 

DATA  (DUMMY  (11.1=  1430  .1537  )/ 

X  0. , .0052, .0097, .0 1 48 . .0202 .. 0270 . .031 0. .0334. .0352, .0359 
X. .0352. .0342 

X.0. , .0047, .0086, .01 31 . .0182, .0237, .0286 . .03 1 5 . . 034 1 , .0354 
X. .0357, .0348 

X.0... 0035, .0064. .0097, .01 37,. 0177. .0217, .0261 ..0291 ..0317 
X. .0339,. 0348 

X,0. , .0018. .0038. .0061 , .0086.. 01 15. .0140.. 01 71. .01 98,. 0225 
X. .0258. .0312 

X.0... 0009.. 0021 ..0037.. 0055.. 0072. .0091 ..01 14. .0131, .0151 
X. .0178, .0238 

X.0. , .0002. .001 0. .0018, .0029,. 0041 , .0055. .0069. .0082. .0006 
X. .01 1 1 . .0151 

X.0.,0.  ,0... 0005,. 00  I  2,. 0020. .0024, .004  t, . 0048 .. 0057 ,. 0070 
X. .0099 

X, .0, .0001 . .0003. .0005, .0009, .0012. .0017. .0025*. 0033. .0042 
X, .005, .0084 

X. .0, .0,. 0002, .0004 , .0007,. 001 ..0014, ,0018. .0027 , . 0035 , . 0045 
X,  .0076 
X/ 

DATA  (OUMMy  (I)  .  I  *  1538  ,1654  )/ 

X  .0. .0,  .0. .0001  , .9002. .0004 , .0006. .0014. .002 . .0027. .0034 , .0062 
X, .0, .0,-. 0006, -.00 16, -.0024, -.0024 , - . 00 1 7. - .0008 , - . 0003 . .0006 
X.  .0013. .0041 

X. .0,-. 0007, -.0021 .-.004! ,- .0058 .-. 0063 ,-. 0064 .-. 0064 0058 
X.-. 0043, -.0032 .-.0007 

X, .0,— ,0012,— ,0032,— ,0058,— • 008 •— ,0096.— .0096.— ,0096 • — , 0087 
X.-. 0076. -.0065, -.0041 

X, .0,-. 00 16. -.0043. -.0076. -.01 05. -.01 26, -.01 38. -.0135. -.01 26 
X.-.01 1 7, -.0107, -.0084 

X. .0.-.0021 ,-.0053. -.0094, -.01 3. -.01 64 ,-.01 72. -.01 79, -.01 66 
X.-. 01 64, -.01 55, -.01 36 

X. .0.-. 0028, -.0063  -.01 1 , -.0 1 54 ,- .0 1 97 , -.02 1 1 .-.0232 ♦- .0221 
X.- .022! ,-.021 .-.0194 

X. .0.-. 0034, -.0073, -.01 24, -.01 76, -.0225, -.0252, -.0286, -.0287 
X.-. 0286, -.0279, -.0259 
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X.. 0, -.004, -. 0084, -. 0139. -. 0195. -.0249.-. 0292. -.034.-. 0345 
X , — . 035 ♦ — .035 1 ,—.033 

X, .0,-. 004. -.0095. -.01 58. -.0225, -.0288. -.0354. -.0423. -.0451 
X/ 

DATA  (DUMMY  (1)  ,  I  =  1655  .1763  )/ 

X  -.0468. -.0482, -.0489 

X, .0.. 0006. -.0066. -.01 48. -.0231 . - .03 1 2 , -.04 1 , -.0497,-. 0547 
X,— .058,— • 06 12,—. 0652 

X.O. . .0028, -.0036.-. 01 24. -.02 12,  .0309 , -.04 1 2 .-.0505 ,- . 0550 
X.-. 0590. -.0624. -.0689 

X. .0.. 0046.. 0002 ,-.0095, -.01 82, -.0289, -.0399. -.0499, -.0549 
X.-. 0587. -.0624. -.0689 

X. .0. .007,. 0087, .0022, -.0081 ,-. 0 1 82 ,-. 0291 0405 , -.0462 
X.-.0501 .-.0540, -.0640 

X. .0. .0078, .0122. .01 18, .0027, -.0082 ,-.01 82 .-.0279, -.0342, -. 0382 
X.-. 043. -.0544 

X. .0. .008,. 01 35, .0169..0122. .0028 .-.008, -.0 1 71 .-.0228, -.0267 
X.-. 0322. -.0445 

X. .0. .0077, .0142, .0204. .0228, .0199. .0098, .001 .-.0032,- .0074 
X.-. 012. -.0243 

X. .0. .0073, .0141 , .0207, .0244 , . 0252 , .0 1 78 . . 0094 . .0057 , . 0024 
X.-. 0014. -.0142 

X. .0. .0067, .0137, .0204, .0247, .0277 , . 0255 , .0 1 79, .0 148, .Ql >4 
X/ 

DATA  (DUMMY  (!)  .  I  =  1764  ,1871  )/ 

X  .0097, -.0025 

X, .0, .0065, .01 35,. 0201 . .0246, .028 , .0276, .02 1  I , .01 78, .0 1 46 
X. .0128, .0021 

X. .0, .0056. .0121  ..01 86.. 0235, .0276,. 0314,. 03o6.. 0287.. 0258 
X.  .0235, .0153 

X, .0, .0049, .0107, .017, .0222, .0265.. 03 14. .033a . .0329, .0317 
X.. 0294,. 0227 

X, .0, .0044, .0097.. 01 56 . .0208 , . 0254 , .0305.  .03->2,  .034 1 ,.0342 
X, .0331 . .0274 

X, .0. .004. .0089, .0144, .0196. .0242,. 0294, . 0328 . .034 , .0348 . .0346 
X. .0304 

X. .0, .0034, .0079, .013, .018, .0224, .0278 , . 03 1 5 , .0334 , . 0344 , .0351 
X,  .0341 

X. .0. .0028. .0067, .01  1 4 , «  0 1 6 1 ,, 0202 . .0255 ,. 029 1 ..03 12,. 0327 
X. .0339. .0359 

X. .0, .002, .0052. .0094, .01 35, .0175, .0219. ,0255, .0274, ,029, .0306 
X. .0349 

X, .0, .0014, ,0039. .0073. .0109, .0143. .0181 . .02 1 5 » . 0232 . . 0246 
X/ 

DATA  (  DUMMY  (11,1=  1872  ,  1977)/ 

X  .0257,. 0302 

X, .0, .00] . .0032, .006 1 . .0093 , ,0 1 25 . . 0 1 57 . .0185, .0202. .0217 
X, .0225, .0252 

X. .0, .001 . .0032. .0057. .009, .01 22 , .0 154 , , o 1 8 1 , .01 98 , .021 3. .022 
X. .024 
X. 14. <7.,0. 

X . .0 , r  06 ,.12, .18. .24, .30. .36 

X, i .258,1 .225,1 .144,1 .030 , . 920 . . 828 , . 756 

X. 15. .7., 0. 

X, .0. .06, . 12, . 1 8, ,24, .30. .36 
X, .538, .500, .443, .390 , .342 , , 308 , .284 
X, 16.. 10, ,0, 

X , .0. .04 , .08, .12, .16, ,20, .24, .28, .32, .36 

X, . 1046, .0997, .0891 , .0776 , . 0672 , . 0580 . .0487, ,0401 . .0324, .0259 
X, 17. , 10. ,0. 
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X*  «0t  *04  «  .08  «  •  1  2 .  »S0*  »?4t«28t  *32 «  *36 

X. 7.. 7. 7, 9.1 . 1 1 .2.13.6.15.8.18.0.19.9,21 .6.22.8 

X/ 

END 
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SUBROUTINE  GOODMN  (ZJ2,X.B.QP,DS.CL) 

DIMENSION  DUMMY  (  291) 
data  (Dummyi I), i =  i,  98  )/ 

Xl*t7*iII» 

X • 65#  *70*  »75» (flO*  1 85 • ,C7 .5 , 90 • 

X< 70 • ,72.  .74 . ,76, « 78 • «  80.  ,  82  • « 84  .  ,  66  « « 88 «  « 9o • 

X. I .41993.1.43365,1 .44684,1 .45927,1 .47073, 1 .48098, 1 .48977,1 .4969 
X. 1 .50215,1 .50537,1 .50645 

X, 1 .59590,1 .61661.1.63693,1.65651 .1 .67495, 1 .69181 , 1 .70658,1.71876 
X. 1 .72786,1.73350. 1 .73541 

X. 1 .79268.1 .82402.1 .85566 . 1 .8371 3 . 1 .91779, 1 .94682. 1 .97316.1 .99562 
X. 2. 01 290. 2. 02384. 2. 02758 

X. 2.01 192.2.05903,2. 10843,2.15978,2.21243.2.26527,2.31643.2.36313 
X. 2. 40 153. 2. 427 18. 2. 43624 

X, 2. 25 177. 2. 32070, 2. 396 15. 2. 47892. 2. 56980 .2.66935. 2. 77736, 2. 89146 
X. 3.00370.3.09448,3. 13130 

X. 2. 375, 2. 460. 2. 550, 2. 655, 2. 770. 2. 900. 3. 058,3. 2 l 8, 3. 445, 3. 640, 3. 8 
X. 2. 50455. 2. 59981 .2.70806,2.83267,2.97856,3.15338.3.36986,3.65185 
X. 4. 05275, 4. 74271, 5. 8  / 

DATA  (DUMMY! 1). I =  99  ,121  >/ 

X2  .«10.«0. 

X*70, ,72. ,74, ,76. ,78. ,80* ,82, ,84. ,86. ,88. 

X. 2. 50455. 2. 59981 .2.70806,2.83267,2.97856.3.15338.3.36986.3.65185 
X. 4. 05275, 4. 74271  / 

DATA  (DUMMY!  I).  1=  122,291.  )/ 

X3 . , 1 1 .,13. 

X,  .05, • 10, .20, ,40, .60, .80, 1 .2 « 1 .6 ,2 .2,2*9, 3.6 
X, .002, .005, .015, .025,. Oo ,.l « • 2 , .3  « .4, .6,1.0, 1 .4,1 .8 
X, .525, .460, .390. .350. .309,. 261 ..230. .222. .2l9..215i.210. .204. .198 
X. .605, .555, .485, .445, .41 1 . . 364 . .3 1 5 . .304 . . 302 . .300 » .294 . ,288 . .283 
X . .694 . .655, .595, .565, .522. .475. .434 , .42 1 , .4 1 3 . .404 , .400 . .394, .39p 
X. .785, .759, .712, .692, .65e, ,615,.576, .563, .554..544, .540. .536, .531 
X, .837, .818, ,783, ,763, .735, ,700, .671 « , 66 1 , .653, ,643, .637, ,633, .630 
X. .874 ,  .855, .830. .81  1 . .792 , • 767 , . 739, . 730 . . 795 , .7 1 7 , .70°. .707, .7p5 
X, .918, ,908, . 890 , , 878 , .867 , . 85 0 , , 829 , .820 , .814, .812, .810*. 809 , .807 
X-  .950,  .940.  .928,  .922,  .913,  .900,  .886,  .88!  ,  .  879 ,  .875  ,  .874  ,  ,87.3,  .872 
X,  .973,  .970,  .964,  .959,  .953,.  94  7,.  94  l  ,  .939,  .  9.36  ,  .933 ,  .932 .  .931  ,  .930 
X, .985. .984, .983, .981 , .978, ,973,, 968, .967 , . 966 . .965 . .964 , .963, .962 
X, .993, .992, .99! , . 990 . ,989 , .988 , . 987. .9865. .986, .9855, .985, .9845 
X..984  / 

PI  =3, 14159265 
DEGCV=180./PI 
AMBDA=ZJ2/PI 

ZMU=B*SQRT<  1  .O+-AM0D  A»*2  )  /  ( 2  « 0*AMBD  A  > 

F=ZMU*< 1 .0-X) 

G=ZMU*<-1 . 0+DS/DP ) 

IF  (F-. 05) 10. 10,90 
10  COSHG1 1 «0+G*#2/2 . 0+G**4/24 . 0 
ALPHA- As  IN ( 1 .O/COSHG ) *0EGCv 
FG=F+G 

C0SHFG=! ,0+FG**2/2.0+FG**4/24.0 
PHI =AS I N ( C0SHG/C0SHF6 ) *DEGCV 
IF  (ALPHA-88. >20,20.30 

20  call  unbar  (Dummy,  99  , alpha, o»o,sk, limit) 

GO  TO  40 

30  SK=.5*AL0G( 16. /( 1 .0-1 1 .O/COSHG ) **2 > ) 

40  IF  (PHI-85. 0)50. 60, 60 

50  CALL  UNBAR  (DUMMY.  1  ,PH 1 , ALPHA ,F0NE , L I M I T ) 

GO  TO  80 

60  IF  (ALPHA-86. >50,70,70 
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70  TWOPHl =ATAN<  1 .0/SORT < OOSHF6**2- 1  .0) ) 

PH I ONE = .S»<  TWOPHI+PHI/OEGCV ) 

FONE  =ALOG ( S IN ( P ! /4 • O+PH ! ONE/2 • 0 ) /COS (PI /4 «  O+PH I ONE/2 • 0 ) )/(l .O/SQRT 
X< 1 .O/COSHG) ) 

80  FTWO=t .O-FONE/SK 
GO  TO  1  10 

90  CALL  UN8AR  (OUMMY.  1 22 ,F . G . FTWO .L t M I T ) 

1  to  F!NF=2«0*ATAN(S0RT(ExP(2.0*FJ-! .0)  >/PI 
FTWO=FTWO/F!NF 
120  CL=CL*FTWO 
RETURN 
END 
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SUBROUTINE  INPUT 

O I MENS  ION  AA(8>  » AKA ( 10) , AlPH( 10) .APBET ( 10.7) .BCB ( 8 ) .BETA ( 1 0 ) . 

1 80D ( 1 0 ) ,C( 1 0 ) .CDOCL ( 1 0 ) ,CL3< 10) ,COCLN< 10) «CTAC( 10) .DCPAP ( 1 0.6 ) . 
20CPINI 10.6) ,DCTAP( 10»6>  »0CTIN( l0.6>  «DECLU  0) »DELTH( 10) «DTHET( 10) . 
3EFFS( 1 0 ) .EINTC7) .FT ( 1 0) .G< 1 0 ) .GIR( 10) .HOB( 1 0) « IPRt 10) .PHI ( 10) . 
4PHI0I  1  0)  ,PXI  ( 1  0)  «SM<  10)  .SR<  10)  .Si  (  10)  .S?<1  0)  .S-><  1  0)  .S4  fl  0)  . 

5T  ABLE2 ( 43 ) . THET (10). THET34 (10). TTHERM ( 50 ) . TX I BO ) . VACB (10). 

6V0V ( 10, lO) .X( 1 0) .Xt  < 1 1 ).2J( 10) .ZM( 10 ) .ZMCRlTf 10) .ZMCROM( 10) , 
7ZMMCRC I  0) . ZMN ( 1 0) , ZNMN ( 10) . Z5 < 1 0 ) . CL AO ( 1 0 ) , THETN ( 10) »MSUR(7) 

8. GOOD! 10) .CD( 10)  ,DCOCL( 10) 

O I MENS  I ON  CBAR (11) »HOL (5 ) 


COMMON 

A 

t 

AA 

• 

ABOVE 

« 

AF 

• 

AKA 

« 

alcht 

COMMON 

ALPH 

AMBDA 

• 

APBET 

• 

APLUS 

• 

ASHRD 

• 

A4A2 

COMMON 

8CB 

A 

BELOW 

• 

beta 

• 

bladn 

♦ 

BOD 

COMMON 

C 

JDOCL 

• 

CHOICE 

* 

CLAO 

« 

CL  I 

« 

CL  1 

COMMON 

CL2 

• 

CL3 

• 

COBET 

COCLN 

• 

COPHI 

« 

COUNT 

COMMON 

CPA 

« 

cta 

• 

CT  AC 

* 

CD 

COMMON 

D 

♦ 

DCD 

• 

DCPAP 

* 

DCPIN 

• 

DCTAP 

♦ 

dctin 

COMMON 

decl 

t 

DEGCV 

t 

DELA 

♦ 

DELTAC 

t 

delth 

4 

dshrd 

COMMON 

dthet 

« 

OMCRT 

• 

DCDCL 

COMMON 

EFFA 

« 

EFFs 

♦ 

EINT 

COMMON 

FAKE 

* 

ft 

COMMON 

G 

* 

GIR 

t 

GOOD 

COMMON 

HOB 

♦ 

HOBSUB 

COMMON 

I 

♦ 

IB 

• 

IC 

♦ 

IOL 

* 

i  error 

• 

I  HOLD 

COMMON 

I  OFF 

• 

IP 

• 

I  PR 

t 

I  set 

• 

I  SET  1 

• 

ISET2 

COMMON 

IT 

• 

INCON 

COMMON 

JV 

COMMON 

KOUNT 

COMMON 

L 

COMMON 

M 

t 

MF  I  NO 

♦ 

MSUB 

♦ 

M6 

♦ 

M8 

COMMON 

N 

* 

NMN 

• 

NOF 

• 

nrecn 

• 

NSIZE 

4 

NSS 

COMMON 

PHI 

♦ 

PH  10 

• 

PI 

♦ 

PXl 

COMMON 

RADCV 

• 

rfl 

COMMON 

sbetai 

• 

S0ETA2 

4 

SCO 

t 

SHRDNO 

• 

SHROD 

« 

SlPHI 

COMMON 

SM 

« 

SR 

♦ 

STHET1 

« 

STHET2 

• 

SUM 

• 

SI 

COMMON 

S2 

« 

S3 

• 

S4 

♦ 

S5 

COMMON 

T  ABLE2 

• 

THEr 

• 

thetn 

• 

THET34 

• 

TRIGI 

t 

TRIG2 

COMMON 

TTHERM 

• 

TX 

COMMON 

VACB 

VGV 

• 

VI 

♦ 

V2 

COMMON 

X 

• 

XI 

• 

XNSS 

« 

XPB 

COMMON 

Y  1 

• 

Y2 

COMMON 

ZIPl 

• 

ZJ 

« 

ZJI 

• 

ZM 

• 

ZMCRIT 

• 

ZMCROM 

COMMON 

ZMMCR 

♦ 

ZMN 

♦ 

ZMS 

* 

ZMU 

4 

ZNMN 

♦ 

Z5 

KTJT  =  ” 1 

PI  =3. 14  159265 

RADCV=PI/180. 

DEGCV=180./PI 
10  READ  (5,20)1 
20  FORMAT  (  I3.69H 

X  ) 

TEST  FOR  LAST  CASE 

IF  ( 1-42)30,630,30 
30  WRITE  (6,20)1 
READ  (5,20)1 
WRITE  (6,20)1 

READ  (5,40)H0L,BLADN,AF,CL 1 ,D,SCO,CTAC( 1 > .SHROD 
40  FORMAT  (5A6.7F6.0) 
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IF  <SHR0D-5. >42.42.44 
42  WRITE  <6.50)HOL.BLADN.AF.D.CLl .SCO 

50  FORMAT  < 37H0  *•»**  PROPELLER  CHARACTERISTICS  ****//5A6// 1 5H0  NO. OF 
l BLADE S =F4 . 0 . 1  OX . 3HAF=F6 . I ✓ 1 5H  DIAMETER  FT. =F8 . 4 * 5x .4HCL I =F6 . 4/ 1 5H 
2  HUB  X  =F6»4  ) 

GO  TO  60 

44  WRITE  <6*46 ) HOL 
46  FORMAT  <5A6) 

60  READ  <5.70) I ,K, <Xt < J) . J=1 . I  1 > 

70  FORMAT  <2!3.11F6.0> 

IF  <1-3)72.72,76 
72  WRITE  <6,74) 

74  FORMAT  <79H0  ERROR  IN  INPUT  —  CARD  NOT  LABELLED  AND  NOT  COVERED  B 
1Y  CARDS  10  OR  36  THRU  40  > 

GO  TO  60 

76  IF  <1-41)80.420.80 
80  IF  <1-30)90.240.240 
90  I  K=  I —3 

GO  TO  < 100, 1 20. 140. 160,1 80.200.220)  .  IK 
100  DO  1 10  J=1 .10 
1  10  X< J)=XI < J+l  ) 

GO  TO  60 

120  00  130  J=1 ,10 
130  HOB< J)=XI < J+l > 

GO  TO  60 

140  DO  150  J=1 , 10 
ISO  BOD< J)=XI < J+l > 

GO  TO  60 

160  DO  170  J=1 .10 
170  DECL ( J ) =X I <  J+l  ) 

GO  TO  60 

180  DO  190  J=1 , 10 
190  DTHET  <  J 1 =X I < J+ 1 ) 

GO  TO  60 

200  DO  210  J*1 ,10 
210  C< J)rXI < J+l 1 
GO  TO  60 
220  NOF =K 

READ  <5.230) < IPR<  I ) ,ZJ< I ) .St  t  I)  .DFLTH (  I  ) , THPTN  < 1 ) ,ZMN< I ) . 1  =  1 ,NOF) 
230  FORMAT  (I6.5F6.0) 

GO  TO  60 
240  1  K=  l -30 

GO  TO  <250,260,280,300.320.340,350.350.350.370.420) . IK 

SHROUD  CHARACTERISTICS 

250  AMBDA=X I < 1 ) 

XPB  =  X I <  2 ) 

ZMU*XI <3) 

DSHRD=X! 14) 

IF  <SHR0D-5. >254,254,252 
252  SHRDNO=ZMU 

zmu=dshrd/shrdno 
254  ASHRD  =  X I <  5 ) 

TR ! G 1 *X I <6) 

TR I G2  =  X I <  7 ) 

A4A2*X I <  8 ) 

GO  TO  60 

260  DO  270  JT=1 .8 
270  AAtJT)=XI<JT+l ) 
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GO  TO  60 

280  00  290  JT=1 .7 
290  E!NT< JT>=X! ( JT+1 ) 

GO  TO  60 

300  00  310  JT=1 .8 
310  8CB( JT>=Xl ( JT+1 ) 

GO  TO  60 

320  DO  330  JT=1 . 10 
330  VACBl Jt)=XI ( JT+1 ) 

GO  TO  60 
340  NSS=K 

XNSS=NSS 
RFL=Xl ( 1 ) 

350  READ  (5.70)  I  .KL.  (CBAR(  JT  1  .  JT  =  1  .1  1) 

DO  360  JT--2.il 
JJT=KTJT+JT 
TX( JJT)=XI < JT) 

360  TTHERM ( J JT ) =CB AR ( JT ) 

KTJT=KTJT+10 
GO  TO  60 
370  T ABLE2 ( 2 ) =K 
ZIP1 =0.0 

IF  ( TA8LE2 (2 )-998.0 1380.60.380 
380  00  390  JT  = 1 . 1 1 
390  T  ABLE2  <  JT +3 ) =X I ( JT ) 

T  ABLE2 ( 1  1=20.0 
T  ABLE2 ( 3 ) =0 .0 

IF  ( T  ABLE2 ( 2 ) —5.0)60.60 .400 
400  ITT  AB2  =  TABLE2 ( 2 ) *2. 0+3.0 

READ  (5,410)  ( T ABL.E2  ( JT  )  .  JTr  15,  I TT AB2  ) 

410  FORMAT  ( F 1 2 .0 . 1 0F6. 0 ) 

GO  TO  60 

420  IF  (SHROO-5. 0)430, 430, 490 
430  WRITE  (6.440) <X( I ) , 1=1 , 10) 

440  FORMAT  (  1 HO . 1  OX . 2HX  =  1 0F8.4 ) 

IF  (SHROD-S. 0)450, 470, 490 

450  WRITE  (6.460)  (HOB(  1)  ,  1  =  1  ,  10)  .  (B'JO{  11.1  =  1,10).  (DECL  (  I  )  .  1  =  1  .  10)  . 

X ( DTHET ( 11.1=1,10) 

460  FORMAT  ( 9X , 4HT/B=  1 0F8.4/9X , 4MFi/0=  1  0F8.4/6X . 7H0ES  CL=  1  f)F8 .4/5X .SHOE 
XL T A  0  =  /lH+, 10X.2H-  .10F8.2) 

GO  TO  490 

470  WRITE  (6.480) (C( I ) . 1=1 .10) 

480  FORMAT  ( 1 3H  C I RCULAT ION= 1 0F8 . 4  > 

490  IF  ( SHROD-5. 1492.492.494 
492  DR=D/ZMU 
GO  TO  496 
494  DR=SHRDNO 

496  WRITE  (6.500)ASHRD,AMBDA,xPB,ZMU.DSHRD,DR.RFL.A4A2 

500  FORMAT  (///34H0  ****  SHROUD  CHARACTERISTICS  ****///15H0  SHROUD  NO. 
t  =F4.0.6X.7HLAM8DA=F6.4/8X.7HXP-BAR=F6.4 .4X.7HMU  =F6.4  /35H  SH 
2R0UD  INNER  SURFACE  DIAMETER  FT.=F8.4  /5X.30H5HROUD  REFERENCE  DIAME 
3TER  FT • =F8 .4  / 1 3X . 22HR IEGELS  FACTOR  LIMIT  =F8.4  /23X. 1 2HAREA  RATIO 
4  =F8,4  ) 

IF  (SHROD-5. >508,508,505 

505  WRITE  ( 6.5061SCO 

506  FORMAT  (34H  CENtERBODY  X  IN  SPECIFIED  PLANE  *F6.4  ) 

508  WRITE  (6,510) ( AA( I ) , 1=1 ,8) . (EINT( I )« 1= 1 .7) 

510  FORMAT  (51H0  T/C  CONTRIBUTION  TO  VORTICITY  (THICKNESS  C0EFF.)=8F9. 
X4/51H  SLOPE  OF  MEAN  CAMBER  LINE  (GLAuERT  COEFF . ) =7F9.4  ) 

IF  (TABLE2(2>-998. 0)520. 540. 520 
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520  WRITE  ( 6 « 530  )  ( T  ABLE 2  < I>«1— 1.1 TTAB2 ) 

530  FORMAT  (63H0  TABLE  OF  2-D  T/C  CONTRIBUTION  tO  $HROuD  PRESSURE  COEF 
XFtC!ENTS//< 10F9.4) ) 

540  WRITE  < 6 • 550 ) ( BCB (I)«I=l.fi) 

550  FORMAT  ( 38H0  ****  CENTERBODY  CHARACTERISTICS  *«#*//49H  CONTRtBuTl 
XON  TO  VCRTICITY  (GLAUERT  COEFF . ) =8F9. 4  ) 

IF  (SHROD-5. 0)560. 580. 600 
560  WRITE  (6.570) 

570  FORMAT  ( /V//79H  ****  CALCULATIONS  ARE  BASED  ON  BOTH  PROPELLER  AND 

1  SHROUD  CHARACTERISTICS  ****  ////  ) 

GO  TO  620 
580  WRITE  (6.590) 

590  FORMAT  (✓///92H  ****  CALCULATIONS  ARE  BASED  ON  SHROUD  CHARACTER  IS 

1 T ICS  and  GIVEN  PROPELLER  CIRCULATION  ****  ////  ) 

GO  TO  620 
600  VRITE  (6.610) 

610  FORMAT  (//V/54H  ****  CALCULATIONS  ARE  BASED  ON  THE  SHROuD  ALONE  * 

1#**  ////  ) 

620  S5=0.0 
RETURN 

630  call  Exit 
END 
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SUBROUTINE  LEGEND  ( ARGL .FPOS .FNEG . DPOS • OONEG ) 

PI=3. 14159265 
ZAV2=ARGL-I .0 
ZAV3= ALOG  <  ZAV2 ) 

ZAV4  = 1 .0/1 ARGL+1 .0) 

ZAV5  =  .5*ZAV4/fZAV2 
ZAV6=ZAV4**2 
ZAV7=S0RT<ZAV4  > 

ZAV9=ZAV6**2 
ZAV1 0=ZAV2**2 

4010  IF(ARGL-2. 3)4020. 4020. 4030 

4  020  FP0S=-.267 . 32+ZAV2*  < .5248255- .040988359*ZAV2+ .95 1 3531 9E-02*Z AV 1 0 )  + 

1  ZAV3*< -.5-. 1 875*ZAV2+.029296875*ZAV1 0-. 8544921 9E-02*ZAV2*Z AV 1 0) 

2  +Z AV I  0**2* ( - .297743648-02  +  .3004074 ) E-02*ZAV3 ) 

3  +ZAV 1 0**2*ZAV2*  < .001068207-. I  1 56567?R-02*ZAV3 ) 

FNEG= 1 . 732868+7AV2*  <  —  .09 1 6085+ . t  9906  I 765E-0 1  *ZAV2  — • 60980647F— 02*ZA 
1 V 1 0 ) +ZAV3*  <  —  .5+ .0625*ZAV2- • 0 1  75781 25*ZAV10+«610351 57E-02*ZAv2*ZAV I 
20) 

GO  TO  4050 

4030  FPOS  = < . 125  +  . 1 875*ZAV4  +  . 29296875*2 AV6  +  . 4785  1 562*ZAV4*ZAV6+. 807495 1  1 
1*ZAV9+1 .39581 3*ZAV4*ZAv9+2. 4572 124 *ZAV6*ZAV9+4.3878793*ZAV4*ZAV6* 
2Z AV9 ) *P I  *  1 .41421 4*Z AV4*Z  AV7 

FNEG=( 1 .0+.5*ZAV4+.5625*ZAV6+.78l25*ZAV4*ZAv6+l . 1 96289*ZAV°+ 1 .9379 
1883*ZAV4*ZAV9)*PI*ZAV7/1 .414214 
4050  DP0S=(ARGL*FP0S-FNEG)*ZAV5 
DONEG"  ( FPOS-; ARGL*FNEG  )*ZAV5 
RETURN 
END 
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SUBROUTINE  TAR 

DIMENSION  AA<8) ,AKA< 10) .ALPH( 10) .APBETt 10.7)«BCB<8: .BET A ( 10)  . 

1 B0D( 1 0  » .C< 10) .CDOCL ( 10) «CL3( 10) «C0CLN( 1 0) »CTAC< 1 0 ) .DCPAP { 1 0.6 > • 
2DCPIN1 10.6) *0CTAP( t 0»6) «DCT1N( l0.6).DECLt 1 0) .DELTH(IO) *0THET( 10) . 
3EFFSI  10) ,EINT<7) »FT( lO) ,G< 10) ,GIR(  10>  ,H0B<  10)  »  IPR<  10)  .PH!  (10)  . 
4PHI.0  (  10)  ,PX  I  < 1 0) ,SM< )0) ,SR< 1 0) .Si ( 10) »Sa< 1 0) .S3< 1 0)  .S4  C  10)  . 
5T/e;LE2<43)  .THET(  10)  .THET341  10). TTHERM ( SO )  »  TX  ( 50 )  ,VACR( 10) . 

6V0V1 10. 1 0  > ,X< 10) .XI < 1 1 ) .Zj( 10) .ZMl 10) .ZMCRtTI 10) .ZMCROMI  10), 
7ZMMCR  (  1 0 )  ,  ZMN  <  1  0 )  .  ZNMN  (.1  0)  ,  Z5  (1  0  )  ,CLAO<  10)  .THETNl  101.MSUB13) 

8. GOOD! 10) »  CD  1 1 O ) , DCDCL (10) 

DIMENSION  CBAR (81 ) .CC125 ) .CHI <81 .7) »CHI 1 < 7 . 7 ) *C 1 RFT < 7 ) .CONS? (7) . 

I COSC (81 .7) . DNEG<8! ) .OUMMY < 938 >  «DXPB< 81 ) »P<  7.7) . PORI 81  ) .PKLI28.7) . 
2SAI8) ,SB0<7) .SB01 ( 7  > . SB02I 7 ) .S INC (81 .7) » THM ( 8  > . TM (8,8). TMT (32*8). 
3TV0V1 ( 10) ,TVOV?< 10) .TVOVSI 10.2) .VFLCI 10.8) .VFLHI 1 0.8) ,DATA(?9B0). 
4 A VOV ( 10. 10) .DELVOVI I  0 . 1 0 ) ,  VPOV ( 1 0 ) .TOTAL.  ( 1 0 ) .UOUIN  < 10) .SWANG (10). 
5SKL<  2S.7) ,TKL<?8.7) ,S(7.7).TT(7.7) .PWKE<40  )  . 

60C8 (8.8) ,PM<  7) , TCPU ( 40 ) . TCPL ( 40 ) .FTHRM ( 40 )  .DXA(7) ,SX(40) . 

7FCTRAL ( 9 ) « SC0NS2 ( 7 ) , SUM 1(10) 

DIMENSION  PCUI40) ,PCL (40 ) »CT(40) .SVSHI40) » VRATU < 4 0 ) . VRATL ( 40 ) . 
XSTHERM ( 40 ) 


COMMON 

A 

,  AA 

,  ABOVE 

• 

AF 

« 

AKA 

4 

ALCHT 

COMMON 

ALPH 

,  AMBDA 

.  APBET 

4 

aplus 

4 

ASHRD 

4 

A4A2 

COMMON 

BC8 

.  BELOW 

.  BETA 

• 

BLADN 

4 

BOD 

COMMON 

C 

.  CDOCL 

,  CHOtCE 

4 

clao 

4 

CL! 

4 

CL  1 

COMMON 

CL2 

.  CL  3 

.  COBET 

« 

COCLN 

- 

COPH! 

4 

COUNT 

COMMON 

CPA 

»  CT  A 

.  CT  AC 

♦ 

CD 

COMMON 

D 

,  DCD 

«  DCPAP 

• 

DCP 1 N 

4 

DCTAP 

4 

DCTIN 

COMMON 

DECL 

.  DEGCV 

,  DELA 

• 

DELTAC 

4 

DELTH 

4 

DSHRD 

COMMON 

dthet 

.  OMCRT 

.  DCDCL 

COMMON 

EFFA 

.  EFFS 

.  El  NT 

COMMON 

FAKE 

.  FT 

COMMON 

G 

.  GIR 

.  GOOD 

COMMON 

HOB 

.  HOBSUB 

COMMON 

I 

.  IB 

.  IC 

• 

IDL 

4 

I  ERROR 

4 

I  HOLD 

COMMON 

ioff 

.  IP 

,  IPR 

4 

I  SET 

4 

1  SET  1 

4 

ISET2 

COMMON 

IT 

»  INCON 

COMMON 

JV 

COMMON 

K0UNT 

COMMON 

L 

COMMON 

M 

•  MF1ND 

.  MSUB 

♦ 

M6 

4 

MB 

COMMON 

N 

,  NMN 

.  NOF 

1 

NRECN 

4 

NSIZE 

4 

NSS 

COMMON 

PHI 

.  PH  10 

.  PI 

• 

PXt 

COMMON 

RAOCV 

.  RFL 

COMMON 

SBETA1 

.  SBETA2 

,  SCO 

• 

SHRDNO 

4 

SHROD 

4 

S1PHI 

COMMON 

SM 

.  SR 

.  STHETI 

♦ 

STHET2 

4 

SUM 

4 

S! 

COMMON 

S2 

»  S3 

,  S4 

4 

S5 

COMMON 

TABLE2 

.  THET 

,  THETN 

♦ 

THET34 

4 

TRIG  1 

4 

TRIG2 

COMMON 

TTHERM 

.  TX 

COMMON 

VACB 

»  VOV 

.  VI 

4 

V2 

COMMON 

X 

.  XI 

.  XNSS 

♦ 

XPB 

COMMON 

Y  1 

»  Y  2 

COMMON 

ZIP! 

.  ZJ 

.  ZJI 

• 

ZM 

4 

ZMCRIT 

• 

ZMCROM 

COMMON 

ZMMCR 

.  ZMN 

»  ZMS 

• 

ZMU 

4 

ZNMN 

4 

Z5 

COMMON/DAT/OATA 

EQUIVALENCE  ( ONEGI 1  )  ,DXPB ( 1 ) > 

EQUIVALENCE (DATA! 1 ) ,PKL( 1 ) > . (DATA! 

1  97  >  »  TMT ( 

)  > . ( D ATA  <  453 ) . COSC ( 1  ) ) 

1 . ( DATA  < 1020) ,S INCH  )  ) , (DATA! 1587), DUMMY ( 1  )  ) 

I  . ( DATA ( 2525 ) »SKL  < 1 ) ) . (DATA (272 1 ) »TKL ( 1  ) ) . ( DATA ( 29 1 7 ) . DCB( 1  ) ) 
DATA  (FCTRAUI I), I»l»9)/1. 0.1* 0,2. 0.6. 0,24.0. 120.0,720.0.5040.0. 
X40320.0  / 
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IF  ( 10FF-1 >229.3100.2810 

P<7.7> .M(6.8> .S(7.7) .  AND  TT ( 7.7 )MATRI X  1 NTFRPOL AT  TON 

3100  IF(SAMBDA-AMBOA) 31 20.31 10.3120 
31 10  !F(SSMBDA-AMBDA >3120. 3500. 3120 
3120  SAMBDA=AMBDA 

IF (AM80A-. 25 >3220.3 130.3 140 
3130  CATEG-3.0 
GO  TO  3320 

3140  1 F  ( AMBDA— .50  >31 60 .3150.3170 
3150  CATEG=4.0 
GO  TO  3320 
3160  CATEG=1.0 
GO  TO  3240 

3170  I F ( AMBDA  — «  75  >  3 1 90  «  3 1 80 ,3200 
3180  CATEG=5.0 
GO  TO  3320 
3190  CATEG=2.0 
GO  TO  3240 

3200  IFtAMBDA-l .0)3190.3210.3220 
3210  CATEG=6.0 
GO  TO  3320 
3220  WRITE  (6.3230) 

3230  FORMAT (23H0L AMBDA  LIMITS  EXCEEDED) 

GO  TO  2900 
3240  DO  3310  LK  = 1 .8 
LL=LK 
LLL=LK 
LLLL=LK 
ML  =LK 
MLL=-LK 
mlll=lk 

DO  3300  KL  =  1.8 
lFlCATEG-1 .0)3260,3250.3260 
3250  AM8 1 = • 25 
KK=KL 
KKK=7+KL 
KKKK  = 1 4+KL 
MK=KL 
MKK=8+KL 
MKKK  = 16+KL 
GO  TO  3270 
3260  AMR  1 = .50 
KK=7+KL 
KKK -  1  4+KL 
KKKK=2I+KL 
MK=B+KL 
MKK= 16+KL 
MKKK*24+KL 

3270  IF(LK-B) 3280,3290.3290 
3280  !F<KL-8>3285, 3290, 3290 
3285  P (KL , LK ) - 

1  ( (2.0*<PKL(KKK,LLL)-PKL(KK,LL) > - .5* ( PKL ( KKKK .LLLL > -PKL (KK ,L 

2L  )  ) > +(2.0*(PKL( KKKK, LLLL) -PKL (KK.LL) ) -4 . 0* ( PKL ( KKK ,LLL ) -PKL < KK ,LL > 
3)  )*' AM8DA-AMB1  )  ) * ( AMBDA-AMB 1 ) /.25+PKL ( KK .LL  ) 

S (KL  »LK  )  =  (  ( 2 . 0* ( SKL (KKK ,LLL ) -S«L ( KK , LL ) > -.5* ( SKL ( KKKK .LLLL ) -SKL ( KK 
1 .LL) ) ) +(2.0*(SKL( KKKK, LLLL ) -SKL (KK .LL ) ) -4 . 0* ( SKL ( KKK.LLL ) “SKL ( KK ,L 
2L  )  ) ) * ( AMBDA-AMB 1 > )*( AMBDA- AMB 1 )/.£5+SKL (KK ,lL> 

TT(KL.LK)  =  (  (240*(TKL  (KKK.LLL  )-TKL(KK,LL>  )-.«?*(TKL  (KKKK. LLLL) -TKHK 
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1K.LL) > )+(2«0*{  TM-  (KKKK  «LLLL  )  —TKL (KK  »LL ) ) -4 .0* ( TKL < KKK ,LLL ) -TKL < KK, 
2LL ) )  )  *  ( AMBD A— AMB 1 ) ) * ( AMBDA-AMB1 ) /. 25+TKL ( KK ,LL ) 

3290  TM(KL.LK>= 

t  < <2.0*(TMT<MKK,MLL)-TMT(MK.ML> )-.5*(TMt(MKKK.MLLL)-TMT(MK. 

-2ML ) ) ) + ( 2 .0* ( TMT  <  MKKK  ,MLLL ) -TMT  <  MK , ML  )  ) -4 • 0* ( TMT ( MKK ,MLL ) -TMT ( MK ,ML 
3) ) )*<  AMBDA-AMOl ) )  *  ( AMBDA-AMB  t )  /  • 25+TMT { MK  *  ML ) 

3300  CONTINUE 
\  3310  CONTINUE 

GO  TO  3450 
3320  DO  3440  LK=1 .8 
LL*LK 
...  ML=LK 

\DO  3430  KL=) *8 
IF (CATEG-3. 0)3220. 3330. 3340 
3330  KK='KL 

mk=kL 

GO  TO  3400 

3340  I F  ( CATEG— 4.0 ) 3220 .3350 .3360 
3350  KK*KL+7 
MK=KL+8 
GO  TO  3400 

3360  IF(CATEG-5. 0)3220, 3370, 3380 
3370  KK=KL+14 
MK=KL+16 
GO  TO  3400 

3380  IFICATEG-6. 0)3220, 3390. 3400 
3390  KK=KL+21 
MK=KL+24 

3400  IF(LK-7)3410, 3410, 3430 
3410  IF(KL-7>3420, 3420, 3430 
3420  P(KL.LK)=PKL(KK.LL) 

S(KL.LK)=SKL(KK.LL) 

TT(KL«LK)=TKL(KK,LL  ) 

3430  TM(KL,LK)=TMT(MK.ML) 

3440  CONTINUE 
3450  CONTINUE 

3500  IF  (TRIG1 )3528, 3528,3502 
3502  WRITE  (6,3504) 

3504  FORMAT  < 11 3H0  ****  IN  THE  SUBSEQUENT  MATRICES  THE  SUBSCRIPT  L  REFE 
XRS  TO  THE  ROW  AND  THE  SUBSCRIPT  K  REFERS  TO  THE  COLUMN  ****  //  ) 

3505  WRITE  ( 6 . 35 10) AMBD A , ( (P ( XL  «LK ) »LK* 1,7) ,  KL- 1,7) 

3510  FORMAT  (  20H0P(K,L)  DATA  L AMBDAsF7 .4/ ( 7F 1 1 .5 ) ) 

WRITE  (6,3520) AMBDA, ( ( TM <KL ,LK ) ,LK = 1 ,8) .XL* | ,8) 

3520  FORMAT  (  23H0  M(K,L)  MATRIX  L AMBDA=F7»4 /( 8F 1 o»5 ) ) 

WRITE  (6.3523) AMBDA, ( (S(KL.LK) »LK= 1,7) »KL* 1,7) 

3523  FORMAT (?0H0S(K.L)  DATA  L AMBD A=F7 .4 / ( 7F 1  I .5  )  > 

WRITE  ( 6, 3527) AMBDA. ( ( TT ( KL ,LK ) ,LK = 1 ,7) ,KL=1 ,7) 

3527  FORMAT (21H0TT(K,L)  DATA  LAMBDA =F7.4/ ( 7F 1 1 .5 > ) 

SHROUD  THICKNESS  EFFECT  MATRIX  M  *  MATRIX  SA 

3528  SA( 1 )=SORT( AMBDA/2.0)*AA(1 ) 

SA(2  > a AA(2 )+AA ( 3)  +  »75*AA ( 4 ) +  »5*A A (5 ) +.31 25* AA(6 ) ♦ • 1 875* A A ( 7 )  + 

1 . I09375*AA( 8) 

SA ( 3 ) = ( 1 ,0/AMBDA ) * ( AA ( 3 ) +1 .5*AA(4  > +t .5*AA(5)+t .25* AA ( 6 ) +»9375*A A ( 7 
1  ) +.656 25* A A ( 8 ) > 

SA(4 ) = ( I  .0/( AMB0A**2) )*( .75*AA(4 )*1 .5*AA(5)  +  1 .875*AA ( 6 ) + 1 .875*AA(7 
l >  +1 .640625*AA(8) ) 

SA ( 5 ) = ( 1 .0/( AMBDA»*3) )*( .5*AA<5>+1 .25*AA ( 6 ) + 1 .875* AA ( 7 ) +2 . 1 B75* 

1  AA ( 8 )  ) 
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SA (6 )  =  ( 1 .0/(AMBDA**4) )*( .31?5*AA(6>+#9375*AA<7)+1 .640625*AA ( 8 ) > 
SA ( 7 )  =  ( 1 .0/( AM8DA**5> )*( .1875*AA (7 M-.65625* AA (R ) ) 

SA  ( 8 )  =  (  I  .0/'(AHBDA**6))A(  .109375  *AAC8>  ) 

DO  3540  JR= 1 ,8 
THM ( JR ) =0.0 
DO  3530  JC=t .8 

THM  <  JR ) =TM (  JR , JC  >  *S A ( JC  > +THM ( JR ) 

3530  CONTINUE 
3540  CONTINUE 
3550  CONTINUE 
J0uNT=0 
sambda=ambda 

SSMBDA=AMBDA 

CHI  INTEGRAL  FOR  PROPER  LAMBDA. MU.  AND  XP  BAR 

IF  (SHROD-5. 13560,3560. 3949 
3560  IF  (ZMU-. 75)3600. 3700. 3570 
3570  IF(ZHU~. 998)3700. 3700,3600 
3600  WRITE  (6,3650) 

3650  FORMAT ( 48H0  MU  LIMIT  EXCEEDED  FOR  CHARACTERISTICS  FUNCTION) 

GO  TO  2900 

3700  I F ( SZMU-ZMU ) 3730 .3710. 3730 
3710  IF(SBMBDA-AMBDA 13730.3720.3730 
3720  I F ( SXPB-XPB ) 3730 . 3940 . 3730 
3730  DO  3740  1=1.81 

3740  OXPB (  I  )  = AMBDA* ( — XPB/AMBD A-COSC ( I .  |  ) ) 

DO  3815  JT 1=1.7 
DO  3810  1=1,81 

GO  TO  (3750,3760.3770.3780.3790.3792,3794) ,JT1 
3750  KOEFE =1 

GO  TO  3800 
3760  KOEFE  =  1 35 
GO  TO  3800 
3770  KOEFE  =  269 
GO  TO  3800 
3780  KOEFE  =  403 
GO  TO  3800 
3790  KOEFE  =  537 
GO  TO  3800 
3792  KOEFE  =67 1 
GO  TO  3800 
3794  KOEFE =805 
3800  H0lD=ABS(0XPR( I ) ) 

CALL  UNBAR(DUMMY( 1 ) .KOEFE. HOLD, ZMU. CHI { I . JT| ) .LIMIT) 

3810  CONTINUE 
3815  CONTINUE 
3818  DO  3910  NU= 1 .7 
TEMP=0.0 
00  3900  JT 1=1,7 
CHI  I ( JT I ,NU ) =0.0 
S!MP= 1 .0 
DO  3890  1=5 ,81 
!F(NU-1 >3820.3820,3830 
3820  CONST*-. 5 
GO  TO  3840 
3830  I!=Nu-l 

CONST=COSC{ I , t I ) 

3840  CH I  I ( Jr  I ,Nu)=CH!<  I.JTl I *C0NST*S I MP+CHI I  (JT1 ,NU> 

I F ( 1-80)3860,3850,3850 
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naso  s imp= i  «o 

GO  TO  3890 

3860  I F  ( TEMP-0.0 1 3870  » 3870 « 3880 
3870  SIMP=A.0 
TEMP=1 .0 
GO  TO  3890 
3880  SIMP=2.0 
TEMPsO.O 
GO  TO  3890 
3890  CONTINUE 

CHI  I ( JT 1 «NU ) =CH I  I ( JT I «NU  >  * • 0 1  3083 
3900  CONTINUE 
3910  CONTINUE 
3920  CONTINUE 

3940  IF  (TRIG1 13948. 3948. 3942 
3942  WRITE  < 6. 3945 > AMBDA . ZMU . XPB 

3945  FORMAT  (1 1 2H0  ****  IN  THE  SUBSEQUENT  MATRIX  THE  SUBSCRIPT  J  REFERS 
X  TO  THE  ROW  ANO  THE  SUBSCRIPT  NU  REFERS  TO  THE  COLUMN  ****  // 

X35H0  CHKJ.NU)  INTEGRAL  DATA  L AMBDA =F6»3  »4H  MU=F6.3.5H  XP8  =  F8.5> 
WRITE  <6.39471 < < CHI  I <  JT 1 .NU) . JTl =1 .7) .NU=t .7) 

3947  FORMAT  < F24 .6 . 6F 1 2 .6 ) 

3948  SZMU=ZMU 
SRMBDA=AM0DA 
SXPB=XPR 

CALCULATION  OF  CHARACTERISTIC  FUNCTIONS  FOR  VELOCITY  parameters 

3949  IF  ( SCMBDA-AMBDA 14360. 4310. 4360 
4  310  I FISSXPB-XPB  14.360.4320 .4360 
4320  IF  (SSCO-SCO14360. 4325. 4360 
4325  IF  (SSZMU-ZMU 14360. 4330. 4360 
4.3.30  I  FISDMRDA- AMBDA  14360.4340.4360 
4340  I F ( SSSXPB-XPR 1 4360 .4350 .4360 
4350  IF  (SSSCO-SC014360.4355.4360 
4355  IF  (SSSZMU-ZMU 14360. 4280. 4360 
4360  DO  4366  IZI  3 1  .  10 

DO  4363  IZ2= 1 .8 
VELC  <  IZI . IZ2)=0.0 
VELH< IZI .1721=0.0 
4363  CONTI NUF 
4366  CONTINUE 

DO  4100  IZI = 1 . 10 
DO  4170  IZ2= 1 ,8 
DO  4160  I Z3= 1 .81 
IF< IZ2-1 14000.4000.4060 
4  000  ZAV1  =  <XPR+AMBDA*COSC< IZ3.I  1 1**2 
ZAV8=  AMBDA  *♦ ( 3.0/2.01 
ZC0NS4  =  1 .0 

ARGL 3 1 .0+<  < 1 .0/<X<  1 Z 1 1 *ZMU 1 )*< 1 . O+ZAV 1  )+X<  tZl >*ZMU-2.0 1/2.0 
CALL  LEGEND  ( ARGL  «FPQS «FNEG. DPOS . DDNEG 1 
DNEG  < 1 Z3 1 =ODNEG 

PORI  IZ3)=X< IZI  )*ZMU*DPOS-DNEG< IZ31 
4060  1F< IZ3-I 14080.4080,4070 
4070  IF< IZ3-81 14090,4080,4080 
4080  ZC0NS1 =.0t 308997 
ZEST=1 .0 
GO  TO  4120 

4090  IF<ZEST)4l 10,41 10.4 100 
4100  ZCONS1 =.052359878 
ZEST=0 . 0 
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GO  TO  4)20 

4  110  ZCONS  1  =  •  026 1  79939 

zest=i .0 

4120  1F< 1Z2-1 )4130. 4130. 4140 
4130  ZC0NS2=1 .0+C0SC( IZ3.1 1 

ZC0NS3=2AV8*SQRT ( 2C0NS2 1 
GO  TO  4150 

4  140  ZCONS2=SINC( IZ3. 1 )*SINC( IZ3.  IZ2-1 1 

ZC0NS3=-C0SC( IZ3. 1 >**( t 22-2 )*S INC ( 123.1 )*AMpDA**( IZ2)*ZC0NS4 
4150  VEL.C  (  IZ1  .  I Z2  )  =VELC  (  IZ1  .  IZ2  )+P0R(  J Z3 > *ZC0NS2*ZC0NS 1 

VE|_H( 1Z1 .  IZ2)=VEI_H( IZ1 .  IZ2)+0NEG( I Z3 ) *ZC0NS3«ZC0NS t * ( -COSC ( IZ3. 1 )- 
1XP8/AM9DA) 

4160  CONTINUE 

ZC0NS4 ZC0NS4 
4170  CONTINUE 
4180  CONTINUE 
4280  OO  4184  IT=1 ,10 

THONT 1=1 .0/(2.0»PI*( (X( IT)*ZMU)**I .8 1 > 

SUM1 (  1  >  =0.0 
00  4182  JT  =  ?  » 8 

SUM 1 ( 1 )=SUM1 ( 1 >+SA< JT)*VELH( IT.JT) 

4182  CONTINUE 

T V0V2 ( IT)  =  THONT 1  ■*  ( S  A  ( 1  >*VELH( IT. 1 1+SUM1 11)1 
4184  CONTINUE 

SCMBOA  = AM80 A 
SSXPB=XPP 
. SSCO=SCO 
SSZMU=ZMU 
SDMBDA=AMB0A 
SSSXPB=XPB 
SSSCO=SCO 
SSSZMU=2MU 

IE  < TRIG1 12999,2990,4285 

4  288  WRITE  (6.4  290)  (X(  1 24  ) ,  (VEl_C(  IZ4, 125) .  IZ5=1  .81.124*1,10) 

WRITE  (6.4  300) <X( 1Z4) , (VELH( IZ4, I Z5 )  » I  Z5=  1  .8), I Z4  =  I .10) 

4290  FORMAT(9HORAO.STA.9X,31HVELC(NU)  AS  NU  GOES  FROM  0  TO  7/tO(F8.4,8F 
19.5/)  ) 

4300  FORMAT ( /9H  RAD . ST A . 9X , 3 1 HVELH ( NU )  AS  NU  GOES  FR0M  0  TO  7/10CF8.4.8 
1F9.5/) ) 

GO  TO  2999 

COMPUTATION  OF  CIRCULATION/CIRC. MAX  AND  CIRCULATION  MAX 

229  |F  (SHROO-B. 1230. 220, 397 

230  CC( I  >  =  100.0 
CC ( 2 ) = 1 0.0 
CC(3) =0.0 

DO  300  IT=1 , 10 
IF  (SHR00-5. 1232.234, 234 

?72  C ( IT ) =  COS ( BETA { I  T  )  *R4DCV ) *CL 3 < IT )*80D( I T ) /S IN (PH I  0 ( IT )*RAnCv> 

234  JT=14-IT 
KT=24-IT 
CC(JT)=X( IT) 

300  CC  (KT ) =  C ( IT) 

CBARM=0.0 
CBAR ( 1 1=0.0 
CBAR(8I 1=0.0 
XX=0.0 

704  V AVG 1=0.0 

DO  305  IT=1 . 10 
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10*5  VAVGI=VAVG!-f?.0*X<  IT)*G!R<  lT>#(V0Vt  I T  .  JV)+B|_ADN*C  (  IT  )  /  ( 4  ,0*Z  J !  )  ) 

V AVG  I  =VAVG 1/(1. 0+SC0 ) 

307  DO  390  IT=2.80 
XX=XX+.0125 
IF(XX-X( 1 ) >320.330,310 
310  CBAR ( IT) =C ( 1 >*(XX-1 .0 > /< X < 1 > - 1 .0 > 

GO  TO  370 

320  IF(XX~X< 10> >340.330.330 

330  CALL  UNBAR  < CC ( 1 ) . I  .XX  .  .0 . CBAR < t T > .L IM I T > 

GO  TO  370 

340  IF ( XX— SCO  >  350.350 . 360 
350  CBAR ( I T  >  =0.0 
GO  TO  375 

360  CBAR ( IT) =C ( 1 0 > * < XX-SCO >/ ( X (1 0 > -SCO ) 

370  I F ( CB ARM  >375 « 372 .375 
372  CBARM=CBAR( IT) 

375  IF(CBAR( I T > -CBARM > 390 . 390 . 3B0 
3B0  CBARM=CBAR( IT) 

390  CONTINUE 
393  DO  395  IT=1 .81 
395  CBAR( IT)=CBAR( IT)/CBARM 
L0UNT=0 

CALCULATION  OF  CIRCULATION  FACTOR 

397  XV1=0.0 

SETS  UP  SUMMATION  INDEX  FOR  GLAUERT  Jvl 

DO  2500  JVl =1 .7 
XJ=0.0 
XVl=XVI+l .0 

SETS  UP  INTEGRATION  NO. AND  DUMMY  INDEX  J 
IF  (SHROD-5. >398.398. 1020 

398  DO  1000  JT=1 .7 
XJ=XJ+1.0 

IF( JT-LOUNT1470.470.400 
400  C IRFT ( JT ) =0.0 
TRIGD»0.0 
DO  440  I T=2»8| 

408  IF(TRIGD-0. 0)420. 410. 420 
410  S I MP  =  4.0 
TR 1 GO* 1 .0 
GO  TO  430 
420  SIMP=2.0 
TR1G0=0.0 

430  Cl RFT  <  JT ) =C I RFT  <  JT ) +? .0*CR AR( I T ) *S I NC ( I T . JT ) *S IMP 
440  CONTINUE 

C I RFT ( JT ) =C I RFT ( JT ) /24  0 • 0 
LOUNT* JT 
450  TCON 1=0.0 
TC0N2=0.0 

470  !F(JT- I >550,550.560 
t  550  H0LD=0.0 
GO  TO  880 

560  H0LD*C0NS2 < JT- I ) 

580  C0NS2I JT)=?.O*0LADN*SORT<ZMU)*CBARM*XJ*C1RFT( JT) *CHI 1  ( JT . JV 1  ) / (P 1  * 
I  Z  JI  *VAVG I ) +HOLD 
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BRANCH  TO  COMPUTE  MORE  THAN  1  JT  TERM 


THICKNESS  EFFECT  ON  SBO 

600  SB0< JVI )=EINT(JVl ) +C0NS2 < JT ) -2.0*THM ( JV 1 > +BCB < Jv 1 > 
1000  CONTINUE 
1005  SCONS2 (JVI) =CONS2 ( 7 ) 

1010  IF  < JV1-7)2500. 1 1 00. 1 100 
1020  C0NS2I JVI 1=0.0 
102!  SC0NS2I JVI 1=0.0 

S80< JVI 1=E!NT< JVI )-2.0*THM< JVI l+BCBI JVI 1 
GO  TO  1010 

start  of  matrix  manipulation  end  of  j  loop 

1100  00  1 150  I T= 1 «JV1 
1 150  SR01 < IT) =SRO ( IT) 

TTR I G=0. 0 

00  1 .300  I  T= 1 .7 

TTRI G=0.0 

TEMPT=0.0 

00  1280  KT=1 .JVI 

XMATM=0.0 

IF(TFMPt-1 .0)1160.1170.1170 
1160  TEMPT=1.0 

NST  =  .7 

GO  TO  1180 
1170  TEMPT=0.0 
NST  =  2 

1180  DO  1220  LT  =NST . JV  t  «  2 

1220  XMATM=P(KT.LT)*SBOl ilti+xmatm 

SP02(KT)=SB0(KT)+XMATM+SR01 ( 1 )*P(KT. 1 ) 

IF  ( ABSISR02IKT )-SR01 (KT ) >-.0005) 1 2R0. 1 280.1230 
1230  TTRIG=I .0 
1280  CONTINUE 

DO  1 285  LT= 1 . JVI 
1285  SB01 (LT)=SBO?(LT) 

1300  CONTINUE 

VELOCITY  DISTRIBUTION  CALCULATION 

2000  TH0NST=AMB0A/(4.0*PI ) 

TV0VC=0.0 

VCNVG=0.0 

DO  2400  I T= 1 .10 

SUM=0.0 

TVOVC=0.0 

DO  2100  JT  = 1 .JVI 

TV0VC=0.0 

SUM=SUM+SBOI ( JT)#VELC< IT. JT) 

I F ( JT-2 ) 20 1 0 ,2020.2020 
2010  SUM  1 ( 1  )=SUM 
GO  TO  2100 

2020  IF  ( ABS< (SUM-SUM! < 1 ) )/SUM)-. 030)2050.2050. 2040 
2040  TVOVC  = 1.0 
2050  SUM  1  (  I  ) =  SUM 
2100  CONTINUE 

IF  ( TVOVC )2! 20 .2120,21  10 
21 10  VCNVG= 1 .0 
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21  20  TVOVf  1  (  lT)=THONST*SUM/(  (X(  IT)*ZMU>**1  .5) 

TVOVSt IT.2)=TV0V1 ( ITI+TV0V2I IT)+VACB( IT) 

TOTAL  < IT)=TVOVS< 1T.2I+1.0 
2400  CONTINUE 
2500  CONTINUE 
2555  JV!=7 
C 

C  TRANSFER  VECTOR  I0FF=0  ASSUME  ANOTHER  V/VO  AND  GO  BACK  FOR  NEW  CL3 

C  I OFF* 1  GO  TO  COMPUTE  SHROUD  PARAMETERS  AND 

C  COMPLETE  STRIP  ANALYSIS 

C  !0FF=2  SOME  PROBLEM  ENCOUNTERED-MESSAGE  PRINTED 

C  OUT. GOES  TO  NEXT  CASE 

C 

2600  IF  ( SHR00-5 . 0 ) 26 10.2610. 2800 
2610  DO  2700  !T=1 .10 
2620  TOLE= .0025 

26B0  IF(ABS<VOV<  IT. JVl-l .O-TVOVSI I T . 2 >1 -TOLE ) 2700.2700 .2740 
2700  CONTINUE 
L0uNT=0 
JOuNT=0 
GO  TO  2800 
2740  JOUNT=JOUNT+1 
t  OFF  =  0 

1 F  ( JOUNT-3 ) 2760 • 2745 . 2745 
2745  IF  ( JOUNT— I  0)2780 .2780.2750 
2750  WRITE  16.2755) 

s  2755  FORMAT (48H0TR0U8LE  IN  ESTABLISHING  CIRCULATION  CONVERGENCE) 

|  GO  TO  2900 

2760  DO  2770  IT=1 .10 

DELVOVI I T . JOUNT ) =VOV < 1 T « JV ) - I .O-TVOVS ( IT. 2) 

VOV< IT. JV ) = ( 1 .O+TVOVRI IT.2I-V0VI IT.JV) >*.85+V0V( IT.JV) 

2770  A VOV C IT. JOUNT )=VOV< IT.JV) 

IF  (SHROD-5. 0)2999. 230, 2999 
2780  DO  2790  I T= 1 .10 

DELVOV (IT. JOUNT )  =V0  V  (  I T  .  JV )  -  ! . 0-TVOVS ( I T . 2 ) 

VOV<  I T ♦ JV ) sAVOV  < IT.jOUNT-2>+(AVOV(  IT, JOUNT~l  )- AvOV ( t T . JOUNT-2 ) ) * 

I DELVOV ( IT, JOUNT -1 )/< DELVOV ( IT. JOUNT- 1 ) -DELVOVI IT, JOUNT) ) 

2790  A VOV ( IT. JOUNT )=VOV( IT.JV) 

IF  (SHROD-5. 0)2999, 230. 2999 
2800  I  OFF  =  1 

GO  TO  2999 

2810  DO  2820  I T= 1 « 1 0 

IF  (SHROD-5. 0)2814, 2812, 2812 
2812  VPOV( I T ) =0 .0 
GO  TO  2816 

2814  VPOVI IT) =S I N (BET A ( I T ) 4RADCV ) *COS (PHI ( I T ) *R ADCV ) *VOV ( I T . JV ) /S I N ( PH I 
I  0 ( IT ) *RAOCV ) 

2816  TOTAL!  IT)  =  TVOVS( IT, 2)  +  ! .0 
IF  (SHROD-5. )2813, 2818, 2817 

2817  UOU I N ( I T ) =0 , 0 
GO  TO  2820 

28)8  UOU INI  IT)=8LADN*C(IT)/(4.0*ZJt ) 

SWANG ( I T ) =DEGCV*AT  AN (2.04ZJI *BL ADN*C ( I T ) /( P t * < BL AON#C ( IT)+4.0*ZJI* 
1  TOTAL!  IT)))) 

2820  CONTINUE 
VAVGI =0.0 
VAVG1  t  =0.0 
VAVG2 I =0.0 
VAVG3 I =0.0 
DO  5000  IT=1 ,10 
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PHOLD=TVOVl ( IT )+TV0V2( IT)+VACB( IT ) 

VAVGI=VAVGI+2.0*X< 1 T >* (PHOLO+UOU I N ( I T ) )*GIR( IT) 
VAVG2I=VAVG2I+2.0*X< IT)*PH0LD*G1R( IT) 

VAVGl I =VAVGl I+2«0*X< IT)*U0UIN< !T)*GtR(!T) 

5000  CONTINUE 

V AVG I =VAVG 1/(1 .O+SCO) 

VAVG2 I =VAVG2 1/ ( 1 .O+SCO) 

VAVGl I =VAVG 1 I*( 1 .O-SCO) 
no  5010  I T= 1 .10 

VAVG3 I =VAVG3 1 +X  < IT)*(U0UIN(  !T)-VAVGl  I )**2*GIR( IT) 

5010  CONTINUE 

VAVG3 I =VAVG3 I* ( 1 .O-SCO) 

RJORO=SORT< ( 1 .0-SCO**2)«(1 .0+VAVGI )/(2.0*VAVGt 1+1 .0) ) 
VBARI=1 .0+VAvGI 
V JET =2.0*VAVG1  1  +  1 .0 
C 

C  SHROuO  PRESSURE  COEFFICIENT  COMPUTATION 

C 

ZIP=0.0 

DO  6100  I  T= I  .NSS 
TH0L0=-2.0#(TX< IT)-. 500) 

IFITHOLD >5399.5398 .5399 

5398  XPT=1 .5707963 
GO  TO  5410 

5399  XPT  =  AT  AN ( SORT ( 1 .0-THOLD*«2 ) /ABS ( THOLD ) ) 

IFITHOLO >5400.54 10,54 10 

5400  XPT=3. 14I59265-XPT 
C 

C  COMPUTES  SHROUD  VORT IC I TY ( D 1 SC >  AND  PHI  MATRIX 

C 

5410  PHI  1  )  =  .5 

CT( IT) =-SBO 1  I  1  )*C0S<XPT/?.0)/(4.0»SIN<XPT/2.0> ) 

DO  5420  I  I  T  =  2  , JV 1 
XJV1 = I IT-I 

PM  I  I IT)=-.5*rOS<XJVI*XPT) 

54  20  CT(  IT)=CT(  IT) -5501  (  1 t T ) *5  I N ( X JV I *XPT ) /A .0 

C 

C  COMPUTES  SHROUD  VOR  r  IC  I  TY  ( C.ONT  )  AND  SHROUD  THICKNESS  I 

C 

SVSH1 I T ) =0.0 

DO  544  0  I ! T  = I , JV 1 

SV=0.0 

DO  5030  I JT  =  1  , JV 1 

54  30  SV*S(  I  IT. I JT>*SBOJ (  I JT ) /2.0+TT < I  IT. I JT)*SAJ I JT )+SV 
SVSH< IT) =SVSH( I T)+.5*PM( 1 IT)*SV 
5440  CONTINUE 
C 

C  PROP  WAKE  CONTRIBUTION 

C 

DXX- . 0  I 25*ZMU 
XX=0.0 

PWKEl  IT)  =0.0 

IF  ( SHR0D-5 .  ) 5445.* 5445 .5482 
5445  TRIGD=0.0 

DO  5480  I  I T  =  2. 80 
XX=XX+DXX 

ARGL  = ( <XPB+AMBDA*COS<XPT) ) **2+ l . 0+XX**2 > / ( 2 . 0*XX > 

CALL  LEGEND  (ARGL.FPOS.FNEG.DPOS .DDNEG) 

DNEG  <  I  I T  )  =DDNEG 
IF(TRIGR-0. 0)5460, 54=0, 5466 
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5450  S!MP*4.o 
TRIGD=1 .6 
GO  TO  5470 
5460  StMf*2.0 
TRIGO=0.0 

5470  PWKE ( t  T ) =PWKE ( t  T ) +CRAR< I ! T 1 *0NEG  f  t t T J /SORT ( yx ) *S ! MP 
5480  CONTINUE 

PWKE ( IT) =PL AON* ( XPR+AMBDA*C0S ( XPT  5 )*PWKE( t T ) *CBARM/ (480. 0*P I *Z J t ) 
1*ZMU*-.5 
C 

C  INCLUDE  SHROUD  THICKNESS  2-D-0PTI0N  ALSO***** 

C 

5482  IF  (ZIPnS800.54fl5.5800 
5485  IF(ZIP)5496.54P6.54Pfl 

5496  IF( T  ABLE? (?) -998.0) 5700.5497 . 5700 

5497  ZIP=t .0 

5498  SX( IT)=?.0*AMBD4*(TX( IT)-. 500 J 
OXA(  n=-2.0*AMB0A 
DXA(2)=-4.0*SX( IT) *AMB0A 

DXA  {  3 )  =-6. 0*SX  (IT)  **2*AMBD  A-?.  .0*  AMBDA**3 

DXA ( 4 ) =-8.0*SX( IT)**3*AMBDA-8.0*SX( IT)*AMEDA**3 

DXA ( 5 ) =— 1 0. 0*SX (IT) **4*AMBDA-20.0*SX ( I T  )  **2*AMBDA**3-?  .  0*AM(3DA**5 
DXA(6) =-)2.0*SX( IT) **5*AMBDA— 40 • 0*SX ( IT) **3*AMBDA**3—1 2 . 0*Sx( IT)* 

1  AMBDA**S 
TSU*0.0 

DO  5500  NTH=2,7 

TSUM=0.0 

NNTH*NTH-1 

DO  5490  MTH= I ,NNTH 

XMTH=MTH 

MTH1 =«NNTH-MTH 

5490  TSUM  =  TSUM+SX(  I T ) **MTH1 *0CB ( NNTH.MTH4- )  )*(-)  .0 > **MTN*DXA ( MTH ) /yMTH 

TSU=SA(NTH+i )*<SX< IT)**(NNTH)*ALOG(ABS( (SX( )T)-AMPDA)/(SX( IT)+  A 
1 MBDA ) ) ) +TSUM )  +TSU 
S500  CONTINUE 

TONE  =  SORT ( 2 .0*AMBOA ) 

TTWO=SQRT ( AMRDA+SX ( IT) ) 

FTHRM( lT)*At.0G< ABS( ( TONE -T TWO )/(T0NE+T TWO) ) )*SA( ) ) / ( P I *TTWO ) + ( SA ( ? 
t )/Pl )*AL0G(ABS( (SXt IT)-AMBDA)/(SX( IT)+AMBDA) ) >*TSU/PI 
FTHRMI tT)*-.5*FTHRM( IT) 

5600  CONTINUE 

GO  TO  5B00 

5700  CALL  UNBAR  ( TABLES (  1  )  .  1 . TX (  I T > . I .0  .FTHRM ( I T ) .L I M I T ) 

C 

C  INCLUDE  CENTERBODY  EFFECT  ***** 

C 

Sfloo  thold=fthrm( tT i+svsh( it)+pwkE( it)+ttherm( it ) 

TCPU( IT) * 0* ( THOLD+CT ( IT) ) 

TCPL( IT)x-2.0*(TH0LD-CT( IT) > 

c 

C  CONVERSION  OF  THERM  PRESS*  COEFF,  TO  ACTUAL  PRESS*  COEFF. 

C 

DZ0X*0.0 

IF  (TX( IT)-RFL)5810. 5810. 5860 
5fl 1 0  00  5850  !PCC=2.6 

DZDX*DZDX+SA< ! PCC ) *SX ( IT)**( IPCC-2) 

5850  CONTINUE 

DZDXx  ( DZDX+SA (  1  I/'SQRTISXI  I T  )  +  AMBDA  >  ) /(  4 .0*  AMBDA > 

5860  VRATUI IT)x( I .0-.5*TCPUl IT) )/SORT() .O+DZOX**?) 

VRATL ( I T ) = ( 1 .0-.5*TCPL( IT) I/SORTCl .O+DZDX**?) 
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PCU( I  T  )  =  1 ,0-VR/.TU( IT) **2 
PCL{  I T  >  —  1 .0— VRATL ( IT) **2 
STHERMI IT)=-2.0*TTHERM( IT) 

6100  CONTINUE 
C 

c  shroud  drag  computation 
c 

IF  (SHR0D-5. )71 00.7100,71 10 
7100  CRD=D*AMSDA/ZMu 

CT0TN=.25*Pl*ZJ!**2*VBARI*< 1 . 0~SCO**2 ) *  I SOPT M .0+8.0*CTAC(l )/(PI# 

1ZJI»*2*( 1 .0-SCO**2) ) )-! .0) 

SDRAG 1  =  .  00 1 5799*PI-»0SHRD*CR0**0 .8*ZJ  I  **2/  ( D**2*ZMS**0 .2  >  *11.  0+A4A2 
X**l .8*  < 1 .0+S.0*D**2*CTAC( 1 )/(PI*(l .0-SCO**2 >«ZJ! **2*DSHRD**2 > ) > 
CTNET=CT0TN-SDRAG1 
CTS 1 =CTNET— CTAC ( 1 ) 

GO  TO  7120 

7110  CRD=AM80A*SHR0N0 

SDRAGI =.0071 65* ( 1 .0+A4A2«*l . 8 ) / t ZMS*CRD ) **0 .2 
7120  VRATLE  =SB0 1 M ) *AM8DA*S0RT < 2 .0*AMRDA > /SA ( 1 ) 

PCI.F  =  1  «0-VRATLE**2 
ZIP1 =1 .0 
WRITE  (6.7350) 

7350  FORMAT  ( IH1 ) 

IF  (SHROD-5. 17400.7410.7430 
7400  WRITF  (6.74901ZJI .THET34 ( IC1 .ZMS.CPA 

7490  FORMAT  (20H0**#  PERFORMANCE  **»/llHO  COND I T I ON. 7X . 2H J=F7.4 . 1  1 H  THE 
XT  A  3/4=F6.3.4H  MN=F6.4,4H  CP  =  F7.4  ) 

GO  TO  7450 

7410  WRITE  (6.74201ZJI ,ZMS 

7420  FORMAT  (21H0  *#*  PERFORMANCE  ***/l 1H0  COND I T ION , 7X . 2HJ=F7.4 . 4H  MN= 
XF6.4  ) 

GO  TO  7450 

7430  WRITE  (6,7440)ZMS 

7440  FORMAT  (21H0  ***  PERFORMANCE  ***/tlHO  COND I T 1  ON , 7X . 4H  MN  =  F6.4  ) 
7450  CONTINUE 

IF  (SHR00-5. 17500,7500,7520 
7500  WRITE  (6,7540)CTNET.CTSI .S0RAG1 ,CTAC( 1 ) 

7540  FORMAT  (43H0  NET  THRUST  COEFF. (SHROuD  +  PROPELLER)  =F8.4  / 

115X.28H  SHROUD  THRUST  COEFFICIENT  =F8.4  /8x.35H  SHROUD  FRICTION  DR 
2AG  COEFFICIENT  =F8.4  /12X.31H  PROPELLER  THRuST  COEFFICIENT  =F8.4  ) 
GO  TC  7550 

7520  WRITE  ( 6 .7530 ) RDRAC 1 

7530  FORMAT  (1H0.7X.35H  SHROUD  FRICTION  DRAG  COEFFICIENT  =F8.4  ) 

7550  WRITE  ( 6 , 5035 ) R JORO . VHAR I 

5035  FORMAT  (25H0  SLIPSTREAM  CONTRACT  1 0N=F6 • 2  /46H0  RATIO  OF  AVERAGE  Du 
XCT  VEL ./FREE  STREAM  VEL«=F8.4  ) 

IF  ( SHROD-5. 15036,5036,5038 

5036  WRITE  ( 6,5037 ) V JET 

5037  FORMAT  (52H0  RATIO  OF  AVERAGE  SLIPSTREAM  VEL*/FREE  STREAM  VEL.=F8. 

14  ) 

5038  WRITF  (6,2870) (X( IT ) , I T  =  I , 1 0 ) , (VACR(  IT), IT*), 10), (TV0V2I IT), IT«t , 1 
10 ) .  (  TV0V1  (  IT).IT«l,!0),( TOTAL ( IT) • IT») . 10) 

2830  FORMAT  (//36H0  ****  INDUCED  VELOCITY  CONTENT  ****  //I8H0PROP.  X 

1  =I0F8.4/18H  CENTERBO.DY  DV/VO= 1 0F8 ,4/ I 8H  SHROUD  T/C  DV/VO*IOF 

28.4/18H  VORTICITY  OV/VO* I 0F8.4/1 BH  TOTAL  V/V0“l0F8.4  ) 

IF  (SHROD-5. 0)2832, 2836, 2836 

2832  WRITE  (6,2834) (VOV( I T . 1 ) . I T= 1 . 1 0 ) . (VPOVI IT), I Ts I. 10). (UOUlN{ IT) , IT 
I  =  1  , 1 0  )  .  < SWANG < I T  > . I T* 1 . I  0  > 

2834  FORMAT  (18H  ASSUMED  V/VO* 1 0F8 • 4/ I 8H  PROP.INO.G.  VP/V* 1 OFB .4/ 

118H  PROP, IND.M.  VP/V=t0F8.4/18H  SWIRL  ANGLE  =10F8.4  ) 
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2836  IF  ( TP  I G2) 2802. 5900. 2802 
2802  WRITE  (6.2520) 

00  2804  JT *  I .7 
1T*JT-1 

WRITE  <6.2530) I T .E I NT < JT ) . THM ( JT ) . SCONS? < JT ) .BCB ( JT ) . SBO ( JT ) . SBOj ( 
X  JT  ) 

2804  CONTINUE 

2530  FORMAT  (1H  I6.6F8.4) 

2520  FORMAT  <//40H0  ****  GLAUERT  COEFFICIENTS  CONTENT  ****  //// 

X46H  SHROUD  SHROUD  PROP.  CENTER  TOTAL  /53H  Nu  CAM 

XBER  T/C  CIRC.'  -BOOT  2-D  3-D  ) 

5900  WRITE  <6.S905)VRATLE«PCLE 

5905  FORMAT  <//63H0  ****  SHROUD  SURFACE  VELOCITIES  AND  PRESSURE  COEFFIC 

XIENTS  **»*  ///) 6X.4 1H  -  VFLOCtTY  COMPONENTS  -  / 

X36X.11H3-0  THICK. +.27X.3IH0UTFR  SURFACE  INNER  SURFACE  /106H  s 

XHROuO  X  VORT.OIS.  2-0  THICK.  VORT.CONT.  PROP  WAKE  CR  EFF 
X.  V/V INF  CPRFSS  V/VlNF  CPRESS  /6X . 2H.0 . 82x .2F9 .4  ) 

WRITF  (6.6000) ( TX ( IT) ,CT< IT) . FTHRM ( IT). SVSH ( I") .PWKF< IT) . TTHFRM ( IT 
X)  .VRATU<  IT)  .PCU<  IT)  ♦  VRATL (  IT)  .PCL<  IT  )  ,  IT*)  .NS'.t) 

6000  FORMAT  < 6F 1 2 .5 , 4F9.4 > 

5300  I  OFF  =  0 

GO  TO  2999 
2900  I  OFF  =  2 
L0UNT=0 

jount=o 

2999  RETURN 
END 
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C  DATUM 

BLOCK  DATA 

COMMON/DAT/DATA 

DIMENSION  DATA (2980) 

DATA  (DATA  (I)  .  I  =  I  .126  )/ 

X  .02683, .05366, .00608. -.00005. -.00001 . .0. .0 

X. .07281 . .14561 . .02491 . -.000 1 6 . -. 000 1 3 . . 0 . . 0 

X. . 1 1925, .23849, .05488, .00071 ,- .00042 .-. 00005 . .0 

X. .16016, .32032, .09186. .00402. -.00072, -.00025. -.00003 

X. .0. .02987, .0,-. 001 01 . .0«.0, .0 

X. .0. .08526, .0.-. 004 17, .0. .00002. .0 

X. .0, • 14668, .0,- ,00922, .0, .00005, .0 

X, .0, .20609, .0,-. 01544 , .0, .00008, .0 

X. .01 343, .0, .00403, .0,- .00049, .0. .0 

X . . 03644 , . 0 , .01 655 , . 0 , — . 00206 , .0, .00001 

X, .05945, .0, .03702. .0,-. 00482, .0. .00002 

X, .07907, .0, . 06338  ««0,  —  .00883, .0. .00006 

X , . 0 ♦ — . 0C304 , .0. .00148. .0,— .00029, .0 

X..0.-.01 252 , .0 . ,00609 , .0.— .00120, .0 

X, .0.-. 02765, .0. .014 18, .0.-. 00278, .0 

X , *0 •  —  • 04629 « .0 , • 02592 ♦ ,0 ,  —  • 005 1 2  « • 0 

X.-. 00001 , .0,-. 00099, .0.. 00079,. 0,-. 00020 

X.-. 00004 . .0.-.O041 1 . .0. .00318. .0,-. 00078 

X/ 

DATA  (DATA  (I)  ,  I  =  127  ,260  )/ 

X  .00019, .0. -.00965. .0, .00732, .0. -.00 181 
X, .00107, .0,  —  .01 766 « ,0, .01338, .0,  —  .00330 
X. .0. .0, .0.-. 00049, .0, .00049, .0 
X , *0, ,00006, .0,— .00200, .0, ,00197 , .0 
X, .0, .00021  , .0,  —  .00463  « .0, .00450, .0 
X. ,0, .00035, »0i — .00855 , .0 , . 008 1 4 , .0 
X. .0, .0, .0. .0,-. 00029,. 0. .00034 
X,  .0, .0, .00002. .0,-. 001 19, .0, .00134 
X. -.00001 . .0. .00007, .0,-. 00272, .0, .00306 
X, -.00006, .0. .00020, . 0 ,- .00495 ,. 0 .. 00550 

X, .70643,-. 15264, ,01671 ,-.00413, . 00 1 78 , - . 0009 I .. 00052 ,- .00033 
X. .76981 ,-.21965, .025 1 8 ,- .00520 .. 00250 .-. 00 1 29. .00074 .-, 00047 
X, .77835, -.26932. .02891 ,-.00543, . 00323 ,- .00 1 57 . . 00082 ,-. 00057 
X, .76809. -.30655, .02752 ,- .00559, . 00426 ,-. 00 l 77 , ,00 1 0 1 .-.00066 
X. .24991 , .0, .02721 ,. 0 . .00264 ,. 0 , .00076 ,. 0 
X. .38538. .0, .05573, .0, .0052 1,.0,«00151,.0 
V , .47698. .0, .08349, .0. .00774 ,. 0 ,. 00222 , .0 
X. .5424 1 , .0, . 10848, .0. .01041 ,.0, .00300. .0 
X/ 

DATA  (DATA  (I)  ,  I  =261  ,404  >/ 

X  .0. .01351 ,. 0.-. 00267, .0,-. 00038. .0,-. 00013 
X. .0, .05507, .0,-. 01 090, .0.-. 00 150. ,0,-. 0005! 

X, .0. . 1 2435, . 0. -. 025 19, .0,-. 00334 , .0.-.001 14 
X, .0, .21832, . 0, -. 04583. .0,-. 00587, .0,-. 00202 
X , , 00520 , *0,— ,00032, ,0, .00031 , ,0, .00006, .0 
X. .03203, ,0,-. 00256. .0. .00248. .0. .00047, .0 
X , ,08932 , .0,— ,0091 1 , ,0, ,00845, .0* ,001 54, .0 
X, . 181 36, .0,-. 02 359, .0. .02040. .0, .00364 , .0 
X, .0, .00051 , . 0. -. 00002. .0,-. 00004 , .0.-.0000 1 
X, .0, ,00824 , ,0,— .00041 « .0,— .00063 , ,0,— .0001 5 
X. .0. .04 182,  .0,-. 00226, .0.-.00320 , .0.-. 00075 
X. .0, . 1 3037, ,0.-. 00749, .0 , - • 0 1 0 1 6 , . 0 . ~ • 00237 
X, ,00019, ,0,— ,00003, ,0,. 00001 , ,0, .00001 , .0 
X, .00480, .0, -.00085, .0 , . 00027 , . 0 , .00018. »0 
X ♦ .0301 3, ,0,— .00664 , .0* ,002 10, *0, .001 33, .0 
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X. . 10893, .0, -.02938, .0, .00908, .0. .00560. .0 
X*  .0.  .00002.'  .0..0..0..0..0..0 
X.  .0. .00147, .0, .00005,. 0.-. 0001 1 . .0.-. 00005 
X/ 

DATA  (OATA  (1)  .  1  =  405  .519  )/ 

X  .0, .01677, .0, .00048 , .0.— .00122. .0,— .00059 
X. .0. .09287. .0, .00256, .0. -.00687, .0,-. 00332 
X..00001..0..0..0..0..0..0..0 
X.  .00086, .0, -.00020, .0 , .00002 ,. 0 .. 00004 , .0 
X.  .01210. .0,-. 00346. .0, .00042. .0. .00064,0. 

X. .07785, .0.-. 02699, .0, .00334 , .0. .00478, .0 
X, 1 ., .99922903, .99691733, .99306345 , .98768834 , .98078528 
X. .97236992. .96245523, .95105651 .. 9381 9 t 34 ,. 92387953. .9081 431 8 
X.  .89100652, .8724960 1 . .85264017, .83 1 46962 , . 80901 700 . . 78531 694 
X. .76040597, .73432252 , .7071 0679 ,. 67880076 . .64944  806 , .61  909396 
X . .58778526 , .55557025 . .52249866 , .48862 126,. 45399052 • .4 1 865977 
X. .38268347, .3461 171 1 , , 3090 1 705 , .27 1 4405 1 .. 23344544 , . 1 9509040 
X. .15643456. . 1 1 753750 . .07845920 .. 03925993 . . 0 . -.03925978 
X.-. 07845905,-. 1 1753734, -.15643440.“. 1 9509025 . -.23344528 
X.-. 271 44036, -.3090 1690. -.3461 1 696, -. 38268333 . -.4 1 865963 
X.-. 45399038, -.488621 1 2 ,- .52249852 ,-. 555570 1 9. -.58778520 
X.-.61 909389, -.64944799, -.67880068, -.707 10671 .-.73432244 
X.-. 76040589, -.7853 1686, -.8090 1692, -.83 146954, -.85264009 
X/ 

DATA  (DATA  <!).!=  520  .614  )/ 

X  -.87249598, -.89 100649, -.908 143 14, -.92387950. -.938 191 30 
X . - . 95 1 05648 , - . 9624552 1 . - .97236989 , - . 98078525 , - .98768832 
X.-. 99306844, -.99691 732, -.99922903.-1 . 

X , 1 . « . 9969 1733.. 98766834 . .97236992 ,.951 0565 1 , . 92387953 
X . .89 1 00652 , .8526401 7 , .8090 1 700 . . 76040597 , . 70710679 , .64944806 
X. .58778526, .52249866 , ,45399052 , .38268347, ,309ol7o5, .23344544 
X, .15643456, .07845920.. 0.-. 07845905, -.15643440. -.23344528 
X,-. 3090 1690, -.38268333, -.45399038, -.5224985?, -.58778520 
X.-. 64944799, -.7071 0671 ,-.76040389, -.8090 169?. -.85264009 
X.-. 891 00640, -.92387950. -.95 105648, -.97236989. -.98768832 
X . - . 99691 732,-1.,-. 9969 1 734 , - , 98768835 , - .97236994 .-.951 05655 
X , - ,92387958 ,-.891 00659 , - .85264020 . - . 8090 1704,-. 76040603 
X,-. 707 10686, -.649448 15, -.58778537, -.52249870, -.45399057 
X,-. 38268352, -.30901 710, -.23344549,-. 15643461 ,-.07845925 
X, .0. .07845899, .15643435, .23344523 , .3090 1 685 , .38268328 
X. .45399033, .52249848. .58778516, ,64944795. .70710667, ,76040586 
X. .80901680, .85264006, .89100647, .92387948. . 95 1 05647, .97236988 
X, .98768831 . .99691731 , l . 

X/ 

DATA  (DATA  (I)  .  I  =  615  .712  )/ 

X  1 .0, .99306845, .97236992 , .938 1 91 34 ,. 89 t 0065? , .83 1 46962 
X.  .76040597, .67880076, ,58778526, .48862126, .3826834  7,, 27 144 051 
X,  .15643456, .03925993, -.07845905,-. 19509025. -.30901690 
X.-.4 1865963, -.52249852, -.6 1909389, -.707 t 0671 ,-.78531686 
X.-. 85264009.-. 908143 14, -.951 05648, -.98078525. -.99691 732 
X.-. 99922903. -.98768835, -.96245526. -.92387958. -.87249608 
X.-. 8090 1704, -.73432258, -.649448 15. -.55557036, -.45399057 
X.-.3461 171 5. -.23344  549,-.! 1753755. .0. . I  1 753729. . 23344523 
X. .3461 1691 , .45399033,. 555570 l 4,. 64944795, .73432240.. 8090 1689 
X. .87249595, ,92387948, ,962455 1 9 ,. 9076883 1 , . 99922902. .99691 734 
X. .98078531, .95 105657,, 908 14325, .85264023. .7853 1702,. 707 10690 
X. .61 909<(10, .52249875, .4 l 865986 ,. 3090 1 7  1 5, .19509051 . .07845931 
X.-. 03925967,-. 156434 30, -.27 144026. -.38268323. -.488621 03 
X.-. 587785 12. -.67880060. -.76040582, -.83 146943, -.89 100645 
X, -.9381 9 127,-, 97236 987 ,-, 99306843 , -1 . 
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X.  1  .  . .98768834 . .95105652. .89100653. ,80901701 ..70710681 
X. .58778529, .45399061 ,.309ol705, . 15643456 ,. 0 .-. 1 5643430 
X.-. 3090 1690, -.45399038, -.587785 12, -.7o7 10664. -.80901 692 
X/ 

DATA  (DATA  (1)  ,  1  =  713  ,811  )/ 

X  -.89100645, -.95105645, -.98768830.-1 . .-.98768837 
X.-. 95 105658,-. 89 100663. -.8090 1710. -.7071 0693, -.58778545 
X. -.45399075, -.30901 720. -.1 564347 1 . .0 . . 1 56434 1 5 , .3090 1 675 
X . .45399025 , .58778500 . . 7071 0653 ,.80901 683 . • 89100638 ..951 0564 1 
X . .98768828, 1 . , .98768839. .95 1 05663 , .891 00670 . .8090 1 719 
X . .707 1 0704 . .58778557 , .45399089, . 3090 1 734 , . 1 5643486 . . 0 
X.-. 15643400, -.30901661 .-.4539901 1 , -.58778487 . -.707! 0642 
X.-. 8090 1674, -.89 100631 ,- .95 1 05636, -.98768825 . -1 .. -.9876884 1 
X.-. 95 105667, -.891 00677. -.8090 1728. -.707 10757. -.58778586 
X.-. 45399 173, -.3090 1796. -.1564351 1,0... 15643355 .. 3090 1 646 
X: .45398944, .58778459, .7071 0575. . 8090 1 635 .. 891 006 1 9, .95 1 05609 
X, .98768818, 1 •  / 

X. 1 .0. .98078528, .92387953, .83 146962.. 707 10679. .55557025 
X, .38268347, . 1 950904 0 , .0 .-. 1 9509025 ,-. 38268333, -. 555570 1 9 
X.-. 70710671 . -.83146954. -.92387950.-. 98078525, -1 . .-.98078529 
X.-. 92387958, -.83 146965, -.707 10686, -.55557036. -.38268352 
X , - • 1 9509045 , .0 . • 1 9509020 . . 38268328 , . 555570 1 4 . . 7o7 1 0667 
X. .83146950, .92387948, .98078524, 1 .. .98078531 . .92387960 
X/ 

DATA  (DATA  (I)  ,  I  =  812  .913  )/ 

X  .83146968, .70710690, .55557041 , . 38268357, . 1 950905 1 , .0 
X. -.195090 15, -.30268323,-. 555570 1 0.-. 7071 0664, -.83 146948 
X, -.92387946, -.98078523, -1 . ,-.98078532, -.92387962, -.83146993 
X.-. 70710757, -.55557078, -.38268362,-. 195091 05. .0. . 19508950 
X. .38268308, .55556947,. 707 10646. .83 146906.. 92387932, .98078507 
X, 1 ., .98078550. .92387980, .83146974, .70710733, .55557050 
X. .38268422, . 19509071 , .0.-. 1 9508984 ,- .38268248 55556976 
X , - . 707 1 0600 , - . 83 1 46925 , - .92387907 , - . 980785 13,-1. 

X, 1 .0, .97236992, .891 00653, .76040599,. 58778529. .38268356 
X, . 15643456, -.07845895, -.30901690, -.52249844, -.70710664 
X . - .85264009 ,-.951 05645 , - .9969 1 73 1 ,-. 98768837 , -.92387962 
X. -.80901 71 0,-. 64944822, -.45399075, -.23344550, .0, .23344504 
X, .45399025, .64944779 , .8090 1 683, . 92387940 .. 98768828 , .99691 736 
X. ,95105663. .85264038, .7071 0704.. 52249892, .30901734. .07845951 
X.-. 15643400. -.38268304, -.58778487, -.760^0563. -.89 100631 
X, -.97236980.-1 97237004 ,-. 89 1 00677 ,-, 7604068 1 ,-.58778586 
X,-. 38268454,-. 1564351 1 ,. 07845799 ,, 3090 1 646 , .52249770 
X, .70710575, .85263969, .95105609,. 9969  I  727, ,98768853,. 92387900 

X/ 

END 
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C  DATAM 

BLOCK  DATA 

COMMON/DAT/DATA 

DIMENSION  DATA ( 2980 ) 

DATA  IDATA  (!)  ,  I  *  914  ,1009  )/ 

X  .80901766, .64944926, .45399143. .23344681 , 0 ., -.23344401 
X.-. 45398975, -.64944 706. -.8090 1656. -.92387907. -.98768808 
X.-. 99691 741 ,-.95 105699, -.85264067, -.707 10779. -.52249931 
X .-.30901825 , -.07846086 , . 1 5643325 , .38268188 , .58778434 
X. .76040494, .891 00605 , .97236957 , 1 .0 

X. 1 .0. .96245523, .85264017, .67880076,. 45399052,. 19509040 
X,-. 07845905. -.3461 1696. -.58778520. -.78531686.-  .92387950 
X.-. 99306844, -.98768835. -.908 14323, -.76040603. -.55557036 
X. -.30901 7 10. -.03925998.. 23344523.. 48862 107,. 707 10667. .87249590 
X, .97236988, .99922904, .95 1 05657 , , 83 146974 , .649448 1 9, .41865996 
X. .15643466, -.1 17537 14, -.38268323, -.6 1909373, -.8090 1686 
X. -.9381 91 23, -.99691 731 98078534 ,-. 89 1 00664 .73432333 
X.-. 52249905. -.27 144 134,0., .27 143982.. 52249770.. 73432226 
X. .89100619. .98078507. .9969 1736,. 9381 91 61 . .8090 1 766 . .61 909434 
X. .38268422, .1 1753860. -.15643389, -.41 865889, -.64944706 
X,-. 83 146925, -.95 105620, -.99922898. -.97237008. -.87249653 
X.-. 7071 0708. -.48862 192, -.23344647, .03925931 ,.30901617 
X. .55556922, .76040559, .90814278, .98768813, .99306853. .92367991 
X/ 

DATA  (DATA  (I)  ,  1  =  1010  .1112  )/ 

X  .78531777, .58778583, .3461 1 806 ,. 07846052 ,-. 1 9508954 
X . - .45398947 , - .67879964 , - .8526397 1 ,-. 96245490 .-1.0 
X , 0 . , . 0392598 1 . .0784  5909 ,,11 753739 . . 1 564  3446 . . 1 950903 1 
X. .23344535. .271 44044 , .3090 1 698. .3461 1 704 .. 38268342 . .4 1 865972 
X. .45399049. .48862 122. .S2249855. .55557022. .58778524 . .61 909393 
X. .64944803, .67880073. .70710677, .73432249. .76040595, .78531692 
X. .80901698, .83146959, .852640 1 0 . .87249599 .. 891 0065 1 , .90814315 
X, .92387951 , .93819131 , .95 1 05649, . 9624552 1 . . 97236990 , .98078526 
X. .98768832. .99306844, .99691732, .99922903. 1 .0* .99922903 
X. .99691733, .99306846. .98768835, .98078529. .97236993. .96245525 
X , .95 1 05654 , .938 19137, .92387957 , . 90814322 ..89100658. .87249607 
X, .85264018, .83146964, ,80901702. .78531697, .76040601 . ,73432256 
X. .70710684 . .6788008 1 . .6494481 3. .61 9q940« , . 58778535 » .55557034 
X. .52249868, .48862128, .45399055, .4 1 865979, .38268349, .3461 1713 
X, .30901708, .27144054, .23344546, . 19509043, . 15643458. .1 1 753752 
X. .07845923, .03925996,0. 

X.O., .07845909, . 1 564 3446 , .23344535 , .3090 1 698 , .3826834? 

X, .45399049, .52249855 , .58778524 ,. 64944803 ,. 7071 0677 , .76040595 
X/ 

DATA  (DATA  <!>,!=  1113  ,1210  )/ 

X  .80901698, .8526401 0, .89100651 ,.92387951 , .951 05649, .97236990 
>!, .98768832. .99691732, 1 .0 , .99691 733 , .98768835 , .97236993 
X, .951 05654, .92387957, .89 1 00658 , . 8526401 B , .80901 7p2 * .7604060 1 
X,  .70710684, .64944  81 3, .58778535, ,5224  9868, .45399055, .38268349 
X, .30901708, .23344546, . 15643458, .07845923,0. ,-.07845902 
X,-. 15643438, -.23344526; -.3090 1688, -.38268330* -.45399036 
X,-. 52249850, -.587785 18, -.64944 797, -.707 10669, -.7604 0588 
X, -.8090 1690, -.85264 007, -.891 00648. -.92387949. -.95 105648 
X.-. 97236989. -.98768831 ,-.99691732,-1 .0. -.99691 734 .-.93768835 
X,-. 97236995, -.95 105656, -.92387959, -.89 100660, “.85264021 
X.-. 3090 1706, -.76040604, -.707 10688. -.649448 17. -.58778539 
X.-. 52249872, -.45399059, -,38268354,-  3090 1 7 1 2, -.2334455 1 
X.-. 15643463, -.07845928,0. 

X.O. , . 1 1 753739, ,23344535. .3461 1 704 , .45399049, .55557022 
X, .64944803, .73432249, .8090 1 698 ,. 87249599 ,. 9238795 1 ..96245521 
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X. .98768632. .99922903. .9969 1733.. 98078529, .95105654, .90814322 
X . .8526401 8 , . 7853 1 697, .70710684 ,.61 9094  04 . .52249868. .4 1 865979 
X. .30901708, . 19509043, .07845923, -.03?"975,-» 15643438 
X/ 

DATA  (DATA  (I)  -  1  *  1211  .1308  )/ 

X  -. 271 44034, -.38268330,-. 48862 1 10.-. 587785 18. -.67880066 
X.-. 76040588. -.83 146952. -.891 00648. -.938 191 30. -.97236939 
X.-. 99306844,-1 . 0 ,-. 99306847, -. 97236995 . -.938 1 91 39 , -.891 00660 
X,-. 83 146967. -.76040604, -.67880085. -.58778539. -.488621  33 
X.-. 38268354, -.27 144059, -.15643463. -.03926001 . .07845897 
X. .19509017, .30901682, .4 l 065955,. 52249846.. 6 1909383.. 7o71o666 
X. .78531681 , .85264005, .90814311 , .95105646, . 98078524 , .9969 1 731 
X. .99922904, .98768836, .96245528,. 92387961 .. 872496 1 2 . .8090 1 7o9 
X. .73432264. .64944821 . .55557043. .45399064 , .3461 1 723. .23344557 
X. . 1 1 753763,0. 

X.0. , . 15643445. .3090 1697, .45399047, .58778522 , .70710675 
X. .80901696, .891 00646. .95105649.. 98768832. 1 ,0« .98768036 
X. .95105654, .891 00658, .8090 1 708. .7071 0691 . .58778535. .45399064 
X. .30901717, . 15643468,0..-. 15643428, -.3090 1678, -.45399027 
X,-. 587785 10, -.707 10662, -.8090 1684, -.891 00639, -.95 105645 
X,-. 98768830,-1 . 0 .-. 98768839 ,-. 95 1 05659 , -.09 1 00665 . -.8090 1 71 7 
X.-. 707 10702, -.58778547, -.4539907.7, -.3090 1731 ,-.15643483 
X , 0. , . 156434 12, .3090 1663, .453990 1 3 . .58778497, .70710651 
X/ 

DATA  (DATA  (1)  ,  I  =  1309  ,1408  1/ 

X  .80901675, .891 00632, .95 1 05640 , .98768827. 1 .0. .98768841 
X. .95105664, .89100672, .8090 1 726, . 707 1 07 1 3 ,. 58778560. .45399091 
X. .30901746, . 15643498,0. ,-. 15643397, -.30901 649, -.45399000 
X,-. 5.9778485, -.707 10598, -.8090 1655. -.89 100589. -.95 105620 
X.-. 96768823,-1 . 0 .-. 98768848, - .95 1 05668 , -409 1 OO^r  6 , -.8090 1 747 
X,-. 707 10780, -.587786 12, -.453991  1 3 . 3090 1 827 . - . 1 564 354  3 

X,0. 

X.0. , .19509031 , .38268342. .55557022, .707 10677,. 83 146959 
X. .92387951 ,.90078526, 1 .0 ,. 90078529 ,. 92387957 . .83 1 46964 
X, .70710684, ,55657034, .38268349, ,19509043,0., -.19509023 
X,-. 38268330, -.555570 17, -.707 10669, -.83 146952, -.92387949 
X,-. 98078526,-1 . O 98078530 .- .92387959, -.03 1 46967 , -.707 1 0688 
X . - . 55557030 , - . 38268354 , - , 1 9509048 , 0 ...  I  95090 17,. 38268325 
X. .55557012, . 707 10666, .83 1 46949, . 92387947 ,. 98078524 . 1 .0 
X. .98078531 . .92387961 , .83 1 46970 ». 7071 0692 .. 55557043 . .38268359 
X. . 19509053,0. .-, 1 95090 1 2 .-. 38268.320 55556974 ,-. 707 1 0598 
X.-. 83 146924, -.92387945. -.980785 13,-1 . 0 . -.98078544 , -.92387967 
X.-. 83 14701 1 ,-.707 10710. -.55557 105, -.38268392.-. 19509137,0. 

X/ 

DATA  (DATA  (I)  ,  I  =  1409  ,1505  1/ 

X  . 1 95089 18,, 38268278 , .55557003 , . 7071 0623 , . 83 1 46943 , .92387920 
X,  .98078520,  1  .0 .  .<>8078537 ,  .92387992 ,. 83 1 <»699?> ,  .7071  0756 
X. .55557077, .38268453, . 19509103,0. 

X.0. , .23344534, .45399047,. 64944802. .80901696, .92387947 
X, .98768832. .99691734, .95105654, .85264024.. 707 l 0691 , .52249868 
X. .30901717, .07845933.-. 15643428, -.38268321 .-.58778510 
X.-. 76040581 ,-.891 00639, -.97236986,-1 . 0. -.97236999 .-.891 00665 
X.-. 760406 17. -.58778547, -.38268373.-. 15643483, .07845877 
X. .30901663, ,52249820. .70710651 , .85263994 , .95 1 05640, .9969 1 730 
X. .98768841 , ,92387969, .8090 1 726 , .6494484 4 ,. 4539909 1 ,.23344566 
X.0. .-.23344486, -.45399000, -.64944705. -.8090 1655, -.92387907 
X.-. 98768823, -.99691 742, -.95 105668, -.85264068. -.707 l 0780 
X.-. 52249933, -.30901 827, -.07845989, .1 5643323,. 38268278 
X, .58778432, .76040493, ,89100605, .97236957, 1 ,0. .97237024 
X. .89100890. .76040680. .58778585, .38268453, . 1 5643608 ,-. 0784580 1 
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X.-. 3090 1553, -.52249772. -.7071 0576. -.85263970. -.951056 to 
X.-. 99691 71 9. -.98768853. -.9238801 7, -.8090 1765. -.64 944924 
X,-. 45399141 ,-.23344679.0. 

X/ 

DATA  <  DATA  (I)  .  1  =  1506  .1610  )/ 

X  0. . .27144044 . .52249855 . .73432249 , .891 00651 , .98078526 
X..99691 733, .93819137, .80901 702..61 9094 04.. 38268349,. 11 753752 
X.-. 15643438, -.4 1865960. -.64944797, -.83 146952. -.95 105648 
•  X.-. 99922903, -.97236995. -.87249609, -.707 10688. -.488621 41 

X , -.2334455 1 , .03925959. .3090 1 682 . .55557004. .76040584 , .90814307 
X. .98768831 . .99306846 , .9238796 1 . .78531710. .58778543, .3461 1733 
X . .07845934 , - . 1 9509002, -. 45399027 .- .67879985, -.85263986 
X.-. 96245498.-1 .0 .-. 9624554 1 .-.85264068 . -.678801 00 ,-.453991 1 3 
X,-. 195091 37, .07845866. .3461 1631 ..58778432. .78531 662.. 92387920 
X, .99306831 . .98768843. .90814356, .76040680, .55557077, .30901794 
X. .039261 17, -.23344466. -.48862030. -.70710647, -.87249562 
X.-. 97236965. -.99922905. -.951 05678. -.83 147028. -.64944848 
X. -.41 866058. -.1 5643573.. 1 1753675.. 38268250, .61909288. .80901657 
X . .938 1 9096 , .9969 1722.. 98078543 . .89100704.. 73432353 . .52249929 
X. .27144162.0. 

X.1..21..5. 

X. .0. .05. .10, .15. .20. .25* .30. .35, .40. .45. .50. .55  « .60. .65. .70 
X ♦ .75  « . 80  * .85 , . 90 , . 95 .1.00 
X/ 

DATA  (DATA  <!>  .  I  =  161!  .1659  >/ 

X  .75. .90, .95. .99, .998 

X.-. 25560. -.391 79, -.46299, -.55041 

X. -.58074 

X.-. 253 17, -.38341 ,-.44552. -.50412 
X. -.51610 

X.-. 24639, -.36257, -.4 1050. -.44968 
X,-. 45719 

X.-. 236 14, -.33623. -.37306, -.40 135 
X.-. 40668 

X . -.22356 , - . 30873 33766 ,- .35920 
X.-. 36322 

X.-. 20972. -.2821 5, -.30543. -.32248' 

X. -.32565 

X , - . 1 9543 , - . 25734 , - . 27652 , - .29043 
X.-. 29301 

X.-. 18126, -.23461 ,-.25071 ,-.26236 
X.-. 26452 

X, -.16758, -.2 1396,-. 22773, -.2376B 
X/ 

DATA  (DATA  (I)  ,  1  »  1660  .1704  )/ 

X  -.23952 

X,-. 15462.-. 19529, -.20725, -.2 1590 
X.-. 21750 

X.-. 14248,-, 17845,-. 18898,-. 19661 
X.-. 19802 

X.-. 13121.-. 16328,-. 17264, -.17945 
X,-. 18072 

X.-. 12081 .-. 14960,-. 15801 ,-.16415 
X.-. 16530 

X.-.l 1 126,-e 13727,-. 14488,-, 15046 
X.-. 15151 

X.-.l 0249,-. 12612,-. 13307, -.1381 8 
X.~. 13914 

X, -. 09447, -. 1 1605,-. 12241 ,-.12712 
\  X.-.l 2802 
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X.-. 0871 4,-. 10693.-. 1 1279.-. 11715 
X.-. I  1798 

X.-. 08044, -.09865.-. 10403.-. 10813 
X/ 

END 
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C  OATOM 

BLOCK  OATA 
COMMON/OAT/OATA 
DIMENSION  DATA ( 2980  ) 

DATA  (DATA  {  1  >  .  I  *  1705  .1768  )/ 

X  -.10891 

X.-. 07433. -.091 14, -.096 1 8. -.09996 
X.-. 10069 

X.-. 06874, -.08431 ,-. 08900 .-.09253 
X. -.09322 

X.-. 06363. -.07809, -.08247, -.08578 
X.-. 08643 
X.2. .21 • .5. 

X  * .0 , . 05 ..10, .15, .2o , .25 , .30 , . 35 . .40. .95. .50 » .55. .60. .65. .70 

X , .75 , .80 , ,85, .90. .95. 1 .00 

X, .75, .90. .95, .99,. 998 

X, .08093, .14562. .18750. .24839 

X.. 27298 

X. .07963, .13947,. 173 10. .20640 
X, .21302 

X, .07602, .12492, . 14641 , .16277 
X.  .16555 

X.. 07077, .10797, .12091 ,.12906 
X/ 

DATA  (DATA  (!),!=  1769  .1813  )/ 

X  .13026 

X.  .06464, .09194, .09956, . 10346 
X. .10391 

X.  .05831 . .07800. .08238. .08400 
X. .08407 

X, .05219, .06632, .06874 ,.06913 
X. .06902 

X,  <,04654,  .05671  ,  .05795  .  ,6'*'**'° 

X. .05749 

X . .04 147, .04885, .04939, ,04881 
X.. 04857 

X,  .03700, .04243, .04256.. 04 185 
X,  .04160 

X.  .03308. .03716, .03707.. 03633 
X,  .03609 

X. .02968, .03282 , .03262 , .031  91 
X,  .03169 

X, .02673, .02921 , .02890 , .02832 
X/ 

DATA  (OATA  (!).!=  1814  .1857  )/ 

X  .02812 

X, .02416. .02620, .02596.. 02538 
X,. 02520 

X, .02  I  92, .02365 . .02344 , .02293 
X.  .02278 

X, .01996. .02149, .02131 ..02088 
X, .02075 

X, .01824, .01962, .01948. .01913 
X, .01902 

X. .01673, .01800. .01791 ..01762 
X, .01753 

X. .01538, .01659, .01654, .01631 
X,  .01623 

X, .01418, .01535, .01533. .01516 
X.  .01510 
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X. .0131  I . .01424, .01 426 • .01413 
X. .01409 
X , 3. »  21 . ,5. 

X/ 

0ATA  (DATA  (I)  ,  l  =  1858  ,1922  )/ 

X  .0 « .05 . • 1 0 , • 1 5 , .20 , .25 , .30, .35*  *40. .45, .50, *55 , .80, .65, .70 

X, .75, .80  « . 85 , .90, .95, 1 .00 

X, .75, ,90,. 95,. 99,. 998 

X.-. 0391 7, -.07773,-. 10654, -.15401 

X,-. 17542 

X,r-.  03837, -.07305, -.09451  .-.1  1589 
X, — • 1 1984 

X,-. 036 19, -.06246, -.07381 ,-.08094 
X,-. 08177 

X,-. 03309, -.05 100 ,-.05605, -.05748 
X,-. 05733 

X.-. 02962, -.04 107, -.04279, -.04 198 
X,-. 04151 

X, -.0261 7, -.033 18, -.03326. -.03 166 
X.-.031 13 

X.-. 02299. -.0271 3. -.02647. -.02471 
X. -.02422 

X,-. 020 18, -.02254, -.02 161 ,-.01995 
X/ 

DATA  (DATA  (!),!=  1923  ,1967  >/ 

X  -.01952 

X . - . 01775, -.01 906 ,-.01809, -.01 662 
X.-. 01626 

X , — . 0 1 569 ,-.01639, -.01 S48 ,-.01423 
X, -.01392 

X,-. 01 395, -.01 431 ,-.01351 ,-.01246 
X.-. 01221 

X,-. 01 247, -.01 266, -.01 198, -.01  1  1  1 

X.-. 01091 

X.-.0  1  121  ,-.01 133, -.01 076, -.01 005 
X,-. 00989 

X. -.01013, -.01024,-. 00977, -.00920 
X,-. 00906 

X.~. 00920. -.00933, -.00895, -.00848 
X, -.00837 

X.-. 00840, -.00855, -.00825, -.00788 
X. -.00778 

X.-. 00769, -.00788, -.00765, -.00735 
X/ 

DATA  (DATA  (1)  ,  I  =  1968  ,2031  )/ 

X  -.00727 

X,-. 00707, -.00729, -.0071 2, -.00688 
X.-, 00681 

X, -.00652, -.00678, -.00664 ,-,00646 
X . - . 00640 

X.-. 00602, -.00631 ,-. 00622 ,-. 00607 
X, -.00602 

X.-. 00558, -.00589. -.00583 .-.00572 

X,-. 00568 

X,4.,21.,5. 

X,  .0, .05* . 10, ,15,0,20, ,25, .30, ,35 , ,40. ,45, .50, ,55 ♦ .60, ,65, ,70 

X , , 75  « ,80, .85, ,90, . 95 ,1,0 

X, .75, .90, .95, .99, ,998 

X, .02296, .04866, .07000, . 10893 

X,. 12817 


FIGURE  16.  (SHEET  50  OF  57) 


Hamilton  U 

__  ^  -  '  -  -  {/  UMTIO  r  CO«PO«*IION 

Standard  Q» 


HSER  4776 
Volume  II 


X.  .02242, .04499 
X.. 07658 
X.  .02098, .03701 
X/ 

DATA  (DATA 
X  .04603 
X. .01 897,. 02892 
X,  .02910 
X. .01678, .02241 
X, .01958 
X,  .01467, .01760 
X.  .0141 1 
X. .01277, .01415 
X.  .01087 
X.  .01 1 14, .01 167 
X, .00886 
X.. 00976.. 00988 
X.  .00757 
X.  .00861 , .00853 
X.  .00667 
X. .00765, .00751 
X.  .00602 
X.  .00684, .00670 
X/ 

DATA  (DATA 
X  .00552 
X.  .00616, .00604 
X.  .0051 1 
X.  .00557, .00550 
X.  .00476 
X.  .00507, .00504 
X.  .00446 
X.  .00463, .00464 
X.  .00419 
X. .00425. .00430 
X.  .00394 
X.  .00391 , .00399 
X,  .00372 
X. .00361 , .00372 
X,  .00351 
X. .00334, .00347 
X,  .00331 
X». 00310,. 00325 


,05980 


.04347 


.03078 


,02225 


.01669 


.01306 


•01064 


.00898 


.00779 


.00621 


.00519 


.00480 


.00445 


X . .00425. .00430. .004 15. .00398 
X. .00394 

X. .00391 , .00399, ,00388, .00374 
X,  .00372 

X. .00361 , .00372, .00364,, 00353 
X,  .00351 

X. .00334, .00347, ,00341 ,.00333 
X,  .00331 

X». 00310.. 00325,. 00321 ,.00315 
X/ 

DATA  (DATA  (!},!=  2122  ,2185  )/ 

X  .00312 
X  « 5. , 2 1 • ,5, 

X.  .0.  .05 , . 1 0. .  |  5  « .20 . .25, .30 , .35. .40. .45. .50. ,55, ,60>*65.  ,70 

X . . 75 , . 80 . . 65 , . 90 . . 95 . 1 . 0 

X,. 75.. 90,. 95,. 99.. 998 

X,-. 01 503. -.03338, -.04994, -.08285 

X.-. 10046 

X.-. 01 466, -.03044, -.04 1 20, -.051  18 
X. -.05249 

X.-.Ot 364 ,-.02426, -.028 10, -.02850 
X,-. 02795 

X. -.01 224 ,-.01 834, -.01 882, -.01 693 
X . -.0  1 6  1  9 

X.-.Ot 075, -.01 386,-. 0131 4, -.01  1  05 
X,-. 01042 


.00388 


.00364 


.00341 


.2076  )/ 


.02025 


.01468 


.01132 


.00921 


.00783 


.00689 


.00619 


t  =  2077  ,2121  >/ 


.00521 


.00484 


.00452 


.00423 


.00374 


.00353 


.00333 


.00315 


=  2122  ,2185  )/ 
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X.-. 00934. -.01 073 .-.00972. -.00796 
X.-. 00749 

X.-. 008 10. -.00359, -.00762. -.00625 
X/ 

DATA  (DATA  {!>.!=  2186  .2230  >/ 

X  -.00590 

X.-. 00705. -.00710. -.00628. -.00523 
X.-. 00498 

X.-. 006 17. -.00604. -.00537. -.00437 
X. -.00439 

X,-. 00544, -.00525, -.004 72. -.004 12 
X.-. 00397 

X.-. 00483, -.00465, -.00423, -.00376 
X, -.00365 

X.-. 00433. -.004! 7, -.00384 ,-.00348 
X. -.00339 

X . - • 00390 , - . 00378 . - . 00352 . - . 00324 
X.-. 00317 

X.-. 00353. -.00345, -.00325. -.00303 
X.-. 00297 

X. -.00321 .-.0031 7, -.00302. -.00284 
X. -.00279 

X.-. 00294, -.00293, -.00281 ,-.00267 
X/ 

DATA  (DATA  (1)  ,  !  =  2231  ,2300  )/ 

X  -.00264 

X,-. 00270. -.00272. -.00262. -.00251 
X.-. 00249 

X.-. 00248. -.00253 .-.00245. -.00237 
X. -.00236 

X . - . 00229 . - . 00236 , - . 00230 , - . 00224 
X. -.00223 

X.-. 002 12. -.00220, -.002 16, -.0021 1 
X.-.0021 1 

X.-. 00 197, -.00206. -.00204 ,-.00200 

X, -.00200 

X.6..2I..5. 

X,0.».05,,10,.15»,20, .25 , , 30  « • 35 «  *40, .45, .50, .55. .60. .65, .70 

X • ,75 . ,80, .85. ,90, ,95, 1 ,0 

X. .75, .90, .95, .99, .998 

X. .01060, .02434, .03759, .06605, .08231 

X.  .01032, .02194 , .03003, .03702 v .03764 

X.  ,00957, .01 704,. 01 938, ,01861 , ,01787 

X/ 

DATA  (DATA  (!)  .  I  =  2301  ,2390  )/ 

X  .00856, .01257, .01 245,. 01 038, .00968 
X. .00747, .00935, .00852 , .00667, .00615 
X, .00646, .00721 , .00631 , .00490 ,. 00454 
X. .00560, .00578, .00500, .00397, .00372 
X.  .00485, .00480. .004 18. .00342. .00325 
X .  .00424 , .00410, .0036/ . .00306 ,. 00293 
X. .00373. .00359, .00321 . .00279. .00270 
X.  .00331 , .00318, .00289, .0025V, .00250 
X.  .00295, .00286, .00263, .00239, .00233 
X. .00265, .00258, .00242, ,00223, .00218 
X.  .00240, .00235, .00222, .00209, .00205 
X. .00220, .00215, .00205,. 001 94, .00191 
X. .00203, .00198, .00190, .00182, .00180 
X. .00189, .00184, .00 177,. 00 170. .00168 
X. .00 176,. 00 171 ,. 00 1 66,. 00 160, .00 t 58 
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X,. 00164,. 00161 , .00156, .00151 ,,00 
X. .00151 , .00 153,. 00 148.. 00 144, .00 
X. .00138, .00147, .0014 1 . .001 38,. 00 
X/ 

DATA  (DATA  <!>.!=  2391 
X  7.*3I »,5, 


X 

♦  0 . , . 05 , 

.10. .15.. 

X 

. .75. .80 

, .85 , .90 , 

X 

..75, .90 

..95, .99. 

X 

,-.00786 

,-.01850. 

X 

.-.00765 

.-.01650, 

X 

.-.00707 

.-.01254, 

X 

.-.00630 

,-.00908. 

X 

« -.00550 

,-.00670. 

X 

,-.00476 

,-.00514, 

X 

.-.00411 

.-.00414, 

X 

,-.00358 

.-.00344. 

X 

,-.00314 

,-.00297, 

X 

,-.00277 

,-.00260. 

X 

,-.00247 

,-.00233, 

X 

.-.00220 

,-.00210. 

X 

,-.00197 

,-;001 92, 

X 

,-.00177 

.-.00176, 

20,  .25*. 30*. 35, 

.95, 1  .0 

.998 

-.02936, -.05432 
-.02277, -.02768 
-,01399, -.01266 
-.00870, -.00675 
-.00590, -.00436 
-.00439, -.00329 
-.00353. -.00274 
-.00297, -.00241 
-.00259, -.00218 
-.00232, -.00201 
-.0021  I ,-.00187 
-.00193, -.00174 
-.00179, -.00164 
-.00166, -.00154 


149 

142 

136 

,2489  1/ 

.40, .45, .5,  , .55 , . 60 , • 65 , . 70 


X/ 


DATA  (DATA 

<11,1 

=  2490 

.2601  >/ 

X 

-.00159 

,-.00162 

-.001 55 

-.00146 

.-.00144 

X 

,-.00144 

.-.00150 

-.00143 

—  .  00 1 3B 

.-.00136 

X 

,-.00132 

.-.001 37 

-.00134 

-.00129 

.-.00128 

X 

,-.00123 

.-.00125 

-.00124 

-.00120 

,-.00121 

X 

,-.001 17 

.-.001 15 

-.00114 

-.00111 

.-.001 12 

X 

,-.001 13 

,-.00107 

-.00105 

-.00103 

.-.00104 

X 

.-.00106 

.-.00102 

-.00098 

-.00096 

.-.00096 

X 

,  .784500 

,-.02544 

.001800 

.000300 

.  .OOOOOO. .OOOOOO, 

.oooooo 

X 

,  1  .20880 

,-.51770 

.005700 

.002100 

,  .OOOOOO. .OOOOOO. 

.OOOOOO 

X 

,  1 .49710 

,-.77770 

.004000 

.006100 

.  .000500. .oooooo. 

.OOOOOO 

X 

.  1  .70680 

,-1.0224 

-.00880 

.010700 

..002100. .000500, 

.000100 

X 

, .392700 

, .OOOOOO 

.063700 

.OOOOOO 

.  .oooooo. .OOOOOO. 

.oooooo 

X 

,  .605800 

,  .OOOOOO 

.  1  30000 

.OOOOOO 

.-.00030. .oooooo. 

.oooooo 

X 

, .749600 

,  .OOOOOO 

.  i  opooo 

.oooooo 

,-.00080. .oooooo, 

•oooooo 

X 

,  .851200 

,  .OOOOOO 

.2=8300 

.OOOOOO 

.-.00130. .OOOOOO, 

.oooooo 

X 

,  .OOOOOO 

.-.12730 

.OOOOOO 

.041900 

.  .000000. .OOOOOO. 

.oooooo 

X 

,  .OOOOOO 

,-.25990 

.OOOOOO 

.084900 

.  .OOOOOO. -.00010. 

.oooooo 

X 

,  .OOOOOO 

,-.39190 

.OOOOOO 

.130000 

.  .OOOOOO. -.00040, 

•oooooo 

X/ 

DATA 


(DATA 


<  1  ) 


I 


2602 


X  .000000 
X,-. 00050 
X.-. 00140 
X.-. 00090 
X.  .002700 
X.  .000000 
X,  .000000 
X,  .000000 
X,  .oooooc 
X  ,  ,000000 
X,  .000000 
X.-. 00010 
X.-. 00050 
X, ,000000 
X,  .000000 


- ,51650, .000000,. 1 76700 
.000000. -.06280.. 000000 
.000000,-. 12740, .000000 
.000000.-. 1 9500, .000000 
.000000 ^-.26500. .000000 
.000100, .000000. -.04 170 
.001100. .000000. -.00400 
.0031 00, .000000 ,-. 1 2730 
.005300, .000000.-. 1 7230 
.000000. .000000 . ,000000 
.000000, .000300. .000000 
.000000, .001 000, .000000 
.000000, .002400, .000000 
.000000. .000000, .000000 
.000000, .000000, ,0001 00 


-.06951 
-.02782 
-.01 186 
-.00612 
-.00394 
-.00301 
-.00256 
-.00228 
-.00209 
-.00194 
-.00182 
-.00171 
-.00161 
-.00152 


2727  )/ 

.000000.- 
.031300. . 
• 063000 , . 
.095500. . 
. 129200, . 
.000000. . 
,000000, . 
,000000, • 
. 000000 , • 
-.03130. . 
-.06280,. 
-.09470, . 
-.12730,. 
*f  000000  ,  — 
.000000.- 


00100. 

000000. 

oooooo. 

000000. 

oooooo. 

025000. 

040200, 

075700, 

101900. 

OOOOOO, 

oooooo. 

oooooo. 

oooooo. 

02500. 

05010. 


.oooooo 

•oooooo 

-.00010 

-.00020 

-.00050 

.oooooo 

.oooooo 

.oooooo 

.oooooo 

.020800 

.041800 

.062000 

.084300 

.oooooo 

.oooooo 
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X. .000000. .000000* .000000, .000400. .000000 4 -.07550. .000000 
X, .000000* .000000. .000000. *00 1000. .000000.-. 101 !0» .000000 
X. .015000. .046000. .004800. -.00030 ..001000. .000000. .0001 00 
X/ 

DATA  (DATA  (!).!=  2728  ,2853  )/ 

X  .022400. «070200. «01 4000. -.00090. .000000. *000000. .000000 
X. .021200. .068500. *023900. -.00020 . . 000000 00020 . .000000 
X. .014600. .050000. .031900, .002800. .000200. -*00040. .000000 
X.  .000000. .017700, .000000 .-. 00050 . .000000, .000000. .000000 
X. .000000. .040S00. .000000. -.00220. . OOOOOO , - . 000 1 0 . .000000 
X ,  .000000  « .054000. .000000 .-.00430. . OOOOOO .“. 00020 . .000000 
X. .OOOOOO. .0^4100, .OOOOOO. -.00560. .OOOOOO. -.00050. .OOOOOO 
X .-.00 1 30. .OOOOOO. -.00040 . .OOOOOO  « .OOOOOO. .OOOOOO. .OOOOOO 
X. -.00560, .OOOOOO. -.00360. .OOOOOO. .OOOOOO. .OOOOOO. .OOOOOO 
X.-. 00960.  .OOOOOO. -.01  1 50 «  •  OOOOOO  .- .00020 .  . OOOOOO .000 1 0 
X. -.00950. .OOOOOO. -.02< 10. .OOOOOO. -.00000. .OOOOOO. -.00060 
X. .OOOOOO . .000300. .OOOOOO . .OOOOOO. .OOOOOO. .OOOOOO. .OOOOOO 
X. .OOOOOO. .003400. .OOOOOO, .000300. .OOOOOO. -.000 10. .OOOOOO 
X, .OOOOOO, .005600. .OOOOOO ..001400,. OOOOOO .-. 00030 . .OOOOOO 
X. .OOOOOO. .005500, .OOOOOO . .005200 ,. OOOOOO .-. 00 1 00 , .OOOOOO 
X. .OOOOOO. .OOOOOO. .OOOOOO. .OOOOOO. .OOOOOO, .OOOOOO. .OOOOOO 
X.-. 00080, .OOOOOO, -.00060. .OOOOOO. .OOOOOO. .OOOOOO. .OOOOOO 
X,-. 00330. .OOOOOO, -.00400, .OOOOOO. .OOOOOO, .OOOOOO. .0001 00 
X/ 

DATA  (DATA  ( I  1  «  1  =  2854  ,2980  1/ 

X  -.00600. .OOOOOO.-. 01 490. .OOOOOO .-.00010. .OOOOOO. .000300 
X. .OOOOOO. .OOOOOO. .OOOOOO. .OOOOOO, .OOOOOO. .OOOOOO, .OOOOOO 
X, .OOOOOO. .000300. .OOOOOO. .OOOOOO. .OOOOOO. .OOOOOO, ,000000 
X,  ,000000, .001200. .OOOOOO, .000700. .OOOOOO, .OOOOOO. .OOOOOO 
X.  .OOOOOO. .0001 00. .OOOOOO. .004200, .OOOOOO, -.00030. .OOOOOO 
X,  .OOOOOO. .OOOOOO. .OOOOOO. .OOOOOO. .OOOOOO, .OOOOOO. .OOOOOO 
X.-. 00020, .OOOOOO. -.000 to,. OOOOOO. .OOOOOO. .OOOOOO. .OOOOOO 
X,-. 00 130. .OOOOOO. -.00 150.. OOOOOO. -.000 10. .OOOOOO. .OOOOOO 
X . - .00450 , • OOOOOO , - • 00950 • . OOOOOO .- .00060 . .OOOOOO , .000200 
X.1..1..1..1..1..1..1..1. 

X«t..2..3',4.,S..6.,7.,8. 

X . 0 . , 1 ,, 3. ,6. .10* ,15. ,21. .28. 

X.0..0..1..4..10., 20  * . 25 . , 56 . 

X.0.,0.,0..t..5.«15,, 35 . , 7o . 

X,0,,0.,C,,0,,1,»6..21., 56 . 

X.0.,0.,0.,0.,0., 1 . ,7. ,28 • 

X.0..0..0..0..0..0..1..8. 

X/ 

END 
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X « .000000 • . 000000 . .000000 . . 000400 . . 000000 , - . 07550 . .000000 
X. .000000. .000000. .000000. .001000. .000000.-. 101 10. .000000 
X. .015000. .046000. .004800. -.00030. .001000. .000000, .000100 
X/ 

DATA  (DATA  (I)  ,  1  =  2728  .2853  )/ 

X  .022400. .070200. *01 4000. -.00090. .000000. *000000. .000000 
X. .02 1200, .063500.* 023900. -.00020, .000000. -.00020. .000000 
X,  .014600. .050000. .031900. .002800. .000200. -.00040, .000000 
X. .000000, .017700. .000000. -.00050. .000000. .000000, .000000 
X.  .000000. .040800. .000000, -.00220. .000000. -.00010, .000000 
X. .000000, .054000. .000000. -.00430. *000000. -.00020. .000000 
X, .000000. .0*41 00, .000000. -.00560. .000000. -.00050. .000000 
X. -.001 30, .000000. -.00040. .000000. .0000O0. .000000, .000000 
X. -.00560. .000000. -.00360. .000000. .000000. .000000. .000000 
X.-. 00960. ,000000, -.01 1 50 .. 000000 .- .00020 . .000000 .- .000 1 0 
X. -.00950. .000000. -.024 10. .000000. -.00090. . 000000 .-. 00060 
X. .000000. .000300. .000000.. 000000. .000000. .000000. .000000 
X. .000000. .002400. .000000, .000200. . 000000 .-. 000 1 0 . .000000 
X, .000000, .005600, .000000 , .00 1 400 , . 000000 .-. 00030 , .000000 
X. .000000, .005500. .000000 . .005200 ,. 000000. -. 001 00 , .000000 
X, .000000. .000009* .000000 ,.000000. .000000, .000000. .000000 
X,-. 00080, .000000. -.00060, .000000. .000000. .000000. .000000 
X.-. 00330. .000000 ,-.00400, .000000. .000000, .000000. .0001  00 
X/ 

data  (DATA  (!),!=  2854  ,2980  )/ 

X  -.00600. .000000. -.01 490, .000000. -.000 10. .000000. .000300 
X, .000000, .000000. .000000, .000000. .000000, .000000, .000000 
X. .000000, .000300. .000000. .000000, .000000. .000000, ,000000 
X, .000000, .001200, .000000,. 000700.. 000000. .000000, .000000 
X. .000000, .0001 00. .000000, .004200. .000000. -.00030, .000000 
X. .000000. .000000. .000000. .000000. .000000. .000000, .000000 
X.-. 00020, .000000, -.00010,. 000000. .000000. .000000. .000000 
X,-. 00 130, .000000. -.00 l 50,. 000000, -.000 10. .000000, .000000 
X.-. 00450, .000000, -.00950.. 000000. -.00060. .000000, .000200 
X.1..1..1..1..1..1..1..1. 

X, 1  ..2.,  3. .4,, 5., 6., 7., 8. 

X  «  0 • « 1 
X  «  0  •  <  0  • »  1 

35#  f  7o# 

X»0*  < I • «6«  «21 • »56« 

X'0«*0«'0«'0'*0*«U'7«'2e* 

X«0«  l • *8* 

X/ 

END 
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SUBROUTINE  UNBAR <  T ♦ IK  . X  IN , Y IN, ZZ .KK > 
DIMENSION  TI 1 ) .XI6) .YI6) ,AI6> 

C  -  MARCH  4,  1961  - 


I  I  = 

IK+1 

N  = 

3 

N2= 

2 

IF  (Till )-3 

. )  700,701 .702 

700 

IF  (T(I!)+0 

. )  60,701.704 

704 

IF  (Ttll)-2 

. )  705,706.701 

705 

N  = 

1 

GO  TO  707 

®06 

N  = 

2 

707 

N2  = 

1 

701 

I  I  = 

I  1  +  1 

702 

N 1  = 

N  +1 

DO  50  L  =  1 I  ,  I  I 

IF  I  TIL)  + 

0.  )  60,60.51 

60 

KK 

=  -1 

22 

=  0. 

GO  TO  9999 

51 

NX  = 

TIL) 

IF  ITIL  +  1  ) 

+  0»  I  60.52.50 

52 

NY  = 

0 

GO  TO  53 

50 

NY  = 

TIL+1  ) 

63 

CONTINUE 

KK 

=  0 

KY 

=  0 

XX 

=  XlN 

Jl 

=  I  1+2 

J2 

=  NX+I I+I 

IFIXX-TI J!  )  1301 .306,400 

400 

00  302  J*J1 

.  J2 

IF  'XX-TI Jll  304.304,302 

302 

CONTINUE 

300 

KK 

=  2 

XX 

=  TIJ2) 

308 

JXl 

=  J2-N 

GO  TO  305 

301 

KK 

=  1 

XX 

=  Tf  JI  ) 

306 

JXl 

=  Jl 

GO  TO  305 

304 

IF  1 J-Jl-1 ) 

30 1 ,306.307 

307 

IF  (J-J2) 

303.308,309 

303 

JXl 

=  J-N2 

305 

continue 

XINT 

=  XX 

IF 

1NY)  1500, 

1500.  3000 

1500 

DO  1599  L* I 

,Nt 

XU.)  =  TIJXl) 

LY  =  JXl  +  NX 
YU.)  =  TILY) 

1 599  JXI  =  JXI  +  1 
I  =  1 
GO  TO  54 

3000  Jl  =  Jl+NX 
J2  =  J2+NY 
VY  *  YIN 

IF(YY-T( Jl )) 31 1 .316.401 


FIGURE  16.  (SHEET  55  OF  57) 


108 


Hamilton 

Standard 


U 

IMv/tSKM*  O*  UflllO  At*rC.«A»  1  CORPOWAllON 


USER  4776 
Volume  II 


401 

DO  312  JsJl,J2 

IF  <YY-T(J>>  314.314,312 

312 

CONT INUE 

319 

KY 

a  6 

YY 

=  T(J2) 

318 

JYI 

a  J2-N 

GO  TO  315 

31  1 

KY 

a  3 

YY 

=  T<  J1  ) 

316 

JYI 

=  J1 

GO  TO  315 

314 

IF  (J-Jl-1)  31  1 ,316.317 

317 

IF  (J-J21  313.318.319 

313 

JYI 

=  J-N2 

315 

CONT INUE 

JX2 

=  JX1 

LY 

=  JYI  +  NY*( JX2-I 1-1 > 

LY1 

=  LY 

DO  3099  L=l »N1 

X  (L  1 

=  T ( JX2 ) 

Y(L1 

=  T  <LY  1  ) 

LY1 

=  LYI+NY 

3099 

JX2 

-  JX2+1 

I 

=  0 

GO  TO  54 

3098 

Y 1 1  1  ■-  ZZ 

00  4400  1  =  1  .N 

LY1 

a  LY+I 

YIH1I  *  0. 

00  4050  MM = 1 «N 1 

YIl  +  1)  =  Y< I  +  l )  +  T ( LY 1 ) *X ( MM 

4050 

LY1 

=  LYl+NY 

4400 

continue 

00  4199  Lai ,N1 

X  <L  1 

=  T ( JY 1  1 

4  199 

JYI 

=  JYl+t 

xint 

a  YY 

< 

1* 

1 

54 

0  * 

:  1  . 

XIN+2)  i  x<i> 

X ( N+3 )  *  x<a> 

00  55  J*t ,N1 
A<  J+l  )  =  XI  J+t >  “  X  ( J) 
TPALl  =  XI NT  -  XI  J) 

IF  I  TPALl  >  57  *58  *57 


58 

ZZ 

=  ’ 

t  (J) 

XI  1  > 

= 

0. 

XI  2 ) 

C 

0. 

X 1 3 ) 

= 

0. 

X 1 4  ) 

s 

0. 

XU) 

s 

1  .0 

GO  TO  ' 

39 

57 

0  =  D 

» 

TPALl 

GO 

TO  <711 

.712.713)  »N 

71  1 

X  ( J) 

X 

TPALl /A 

(J+l  ) 

GO 

TO  55 

712 

XI J) 

= 

-TPALl 

GO 

TO  55 

713 

XI  J) 

X 

<X< J+2) 

-X(J))»TPALI 

55 

CONT 

z 

c 

PI 
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6.  2  FLOW  CHARTS,  SUBROUTINE  LIST,  AND  FORTRAN  IV  LISTINGS  FOR  HAMILTON 
STANDARD  DECK  H194 


Figures  17,  18,  and  19  contain  the  pertinent  data  for  Hamilton  Standard  Deck  H194.  It 
is  the  computer  deck  which  calculates  shroud  camber  2 -dimensional  Glauert  coefficients 
and  shroud  thickness  coefficients.  These  data  are  used  as  input  for  Hamilton  Standard 
Deck  11193. 


Hamilton  U 

P'VlSO**  UMUO  AIOCMAFT  CO^POBAJON 

Standard  Q® 


FLOW  CHART  FOR  HAMILTON  STANDARD  DECK  HI  94 
SHROUD  GEOMETRY  PROGRAM 


FIGURE  17 


Hamilton-  _ 
Standard 


U 
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LIST  OF  SUBROUTINES 


HAMILTON  STANDARD  DECK  H194 

SHROUD  GEOMETRY 

MNH194 

GAUSIO 

UNBAR  (See  listing  under  Appendix  6. 1) 


Figure  18 
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FORTRAN  IV  LISTING  FOR  HAMILTON  STANDARD  DECK  HI  94 


C  MAIN  PROGRAM  FOR  HS  DECK  H 1 94 

01 MENS  ION  TAB (68 > .F 1NT < 7 > .X  I < 1 1) «EEE  <81  ) . X ( -r ) ,HOR < 7 ) . VECTOR ( 7 ) . 
XZM(10.I1  ) «  TH ( 2  I  )  »  Y  < 22  )  • XBS (81  ) 

100  WRITE  (6.105) 

105  FORMAT  (IH1.47X.22H  HS  COMPUTER  DECK  HI94/47X.24H  SHROUD  GEOMETRY 
1PROGRAM  /SOX.lflH  HAMILTON  STANDARD  /49X.20H  WINDSOR  LOCKS. CONN.  / 
257X.5H  1967  ) 

READ  (5.110) 

1 10  FORMAT  (72H 

X  ) 

WRITE  (6.110) 

120  READ  (5, 130) I ,KL. (XI ( JT) . JT=1 . 1 1 ) 

130  FORMAT  (2I3,i:F6.0) 

IK=!-1 

GO  TO  (  140.  160,  180.200,220.240.260.280. ->00 .710)  ,  IK 
140  DO  150  JT=2, 1 1 
150  T AB ( JT +2 ) =X I ( JT  ) 

T  AB ( 1  )  =  1 .0 
T  A8 ( 2 ) *X I  (  1  > 

TAB<3) =0.0 
GO  TO  120 
160  DO  1 70  JT=1 , 1 1 
170  TAB( JT+1 3 )=XI < JT ) 

GO  TO  120 
180  DO  190  JT=1 , 1 1 
190  T  AB ( JT +24 ) =X I ( JT ) 

GO  TO  120 
200  DO  210  JT=1 , 1 1 
210  T AB<  JT  +  35 ) =X I ( JT ) 

GO  TO  120 
22 0  00  230  JT= 1,11 
230  T AB (JT+46)=XI (JT) 

GO  TO  120 
240  DO  250  JT= 1 , 1 1 
250  T  AB ( JT  +  57 ) =X I ( JT ) 

GO  TO  120 
260  DO  270  JT= 1 .7 
270  X ( JT ) =X I ( JT ) 

GO  TO  120 
280  DO  290  JT  =1,7 
290  HOB ( JT )  =X  I ( JT) 

GO  TO  120 
300  AZERO=XI ( 1 ) 

GO  TO  120 
310  OPT  =  X  I ( 1  ) 

TR 1 G=X I (2) 

IF (OPT- 1 .0)320,320,440 

CALCULATION  OF  SHROUD  CAMBER  INTEGRAL 

320  PI =3. 14 159265 
WRITF  (6.322) 

322  FORMAT  (65H0  ****  CALCULATION  OF  sHROuD  CAMBER  2-D  GLAuERT  COEFFIC 
XIENTS  ****  //1H  , 1 1 X , I OHAx I AL  LOC. »5X . 1 1 H I NduT  SL OPF , 1  OX , 1 OHAX  I  AL 
XL0C. ,5X, 1 1H INPUT  SLOPE , 1  OX « I OHAx S AL  LOC . , 5X , 11 H 1 NPUT  SLOPF  ) 

NP= T AB ( 2 )  +  • 000005  '  ■ 

t=NP/3 
J=  1*3 
K=NP- J 

IF  (K-l ) 325, 326. 326 
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725  l=i 

GO  TO  127 

326  L  =  I  + 1 

327  I  I  =NP+3 

00  331  N=t  ,L 
J=N+2*L 

IF  (J-NP 1320,329.326 

328  J  =  J-I 

729  WRITF  (6.414  1  (TAP(M+71  ,TA(3(M4-I  I)  ,M=N.  J,L  1 
731  CONTI NUF 

00  4 1 0  NU= 1 .7 
E  INT (NUl =0.0 
S IMP= 1  .0 
TEMP=0.0 
DELA=PI/60. 

ANGLE = -DEL A 
DO  400  1=1.81 
ANGLE=ANGLE+OELA 
IF  (NU-l 1332.332.340 
332  XBS< 1 1 =-COS< ANGLE 1/2.0+.5 

CAI, ! .  UNBAR  (  TAB  .  1  « X8S  (11.1.0.  EEE  (II, LIMIT) 

CO?(ST  =  -  .5 
GO  TO  350 
340  I  I  =NU— 1 
A  I  I  =  I  I 

CONST  =  COS ( ANGLE* A  I  I  1 
350  EINT(NU1=EEE( I l»CONST*S5MP+EINT(NU) 

IF  ( 1-801370.360.400 
360  SIMP=1.C 
TEMP=0.0 
GO  TO  400 

370  IF  (TEMP  1380 .300, 3°0 
380  SIMP=4.C 
TEMP* 1 .0 
GO  TO  400 
70(1  slMP=2.0 
TEMPsO.O 
400  CONTINUE 

E I NT (NU>  =-f I NT (NU1/70. 

4  I  0  CONT INUE 

WRITE  (6.4|?) 

412  FORM  ft  T  (  1H0. 1  IX.  10HAX1  AL  I.OC  .  .6X  .  1  OH  I  NT  .  SLOPE  ,  1  ()X  .  1  OHftX  I  AL  LOC  .  , 
X6X , 1  OH  1  NT .  SLOPE, 1  OX. 10HAX1AL  LOC . , 6X , 1  OH  I  NT  .  SLOPE  1 
00  416  1=1 ,27 
J=I+5ft 

WRITE  (6.4 |4  1  (XB5IL  )  .EEElL 1 .L= I . J.27  1 
414  FORMAT  (1H  , 3 ( 4x . 2F 1 6 .5 1 1 
416  CONTINUE 

WRITE  <6.4301 (ElNT(  I  )  .  1  =  1  .71 

430  FORMAT  (65H0  *«««  SHROUD  CAMBER  2-0  GLAuERT  COEFFICIENTS  -  Eo  TH 

XRU  E6  ****  /7F 1 1 .5) 

IF  (OPT-I .01440.900.440 

CALCULATION  OF  SHROUD  THICKNESS  COEFFICIENTS 
440  WRITE  (6.4421 

442  FORMAT  ( 57Hp  ***»  CALCULATION  OF  SHROuD  THICKNESS  COEFFICIENTS  *** 
X*  > 

WRITE  (6.4451  I X<  I  1  ,  I  =  1  .71 , (HOB( I  1 .  1  =  1  ,7 1 
445  FORMAT  (18H0  AXIAL  LOCATION  =  7F0.4  /7X . I  1 H I NPUT  T/C  =  7FB.41 
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00  450  1  =  1.7 

450  VECTOR! I >=H0B( I ) - AZERO*SQRT ( X ( ! ) ) 

00  500  1=1.7 
ZM( I . 1 )=X< I > 

DO  460  J=2.7 

460  ZM( I . J)=ZM( I .J-1)*X(  I  ) 

500  CONTINUE 

CALL  GAUS10  ( 7 . ZM . VECTOR .DET . I DET . L > 

IE  (L- 1)550.530.550 
530  WRITE  (6,535) 

535  EORMAT  (19H  MATRIX  IS  SINGULAR  ) 

GO  TO  900 

550  WRITE  (6.5751AZER0. (VECTOR! I ) . I =1 .7) 

575  FORMAT  (56H0  *#**  SHROUD  THICKNESS  COEFFICIENTS  -  Ao  THRU  A7  *** 

X*  /8F9.4  ) 

WRITE  (6.580) 

580  FORMAT  (24H0  AxIAL  LOC.  CALC.T/C  ) 

Y(  1  )  =0. 

DO  800  1=1,21 
TH ( I ) =0 • 

Z=1  . 

DO  600  J=I  .7 

TH ( I )=TH( I )+VECTOR( J)*Z*Y( I ) 

600  Z=2*Y( I ) 

TH ( I ) =AZERO*SORT(Y( I > )+TH( I ) 

WRITE  (6.700)Y( I ) ,TH( I ) 

700  FORMAT  (2FI2.6) 

800  Y< I+l) =Y( I ) + .05 

°00  IF  (TRIG)960. 060, 1000 

960  WRITE  (6. 070) 

970  FORMAT  ( 1HJ ) 

GO  TO  100 

iooo  call  exit 
END 
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SUBROUTINE  GAUS10  IN . A . B . PET . I PET .LS I NG  ) 

DIMENSION  AllO.ll).  8(10).  I ROW (10) 

*  #R0W  AND  COLUMN  INTERCHANGES  ARE  MAOE  TO  PUT  LARGEST 

*  *  ELEMENT  IN  THE  PIVOTAL  SLOT 
LS1NG  =  0 

OET  =  1. 

IDET  =  0 
NUMBER  OF  COL • 

NC  =  N+l 

MOVE  THE  B  VECTOR  INTO  COLUMN  N+ 1  AND  sET  UP  ARRAY  I 
DO  2  1=1 .N 

I  ROW (  I )  =  I 

2  A ( I . NC )  =8(1) 

start  of  overall  loop 

N!  =  N-l 
DO  100  L  =  1 «N1 
BIG  =  0. 

DO  10  J  =  L.N 
00  10  I  =  L.N 

IF  (BIG-  ABS  (  A(l.J)  >)6.  6.  10 
6  BIG  =  ABS  (  A( I  ,  J )  ) 

J 1  =  J 

II  =  1 

10  CONTINUE 

C  MOVE  ROW  I  1  TO  L  START  WITH  COL  (L)  SINCE  ]  TO  (L-I)  ARE 

IF(Il-L)  12.14,12 
12  DET=— DET 

DO  16  K  =  L.NC 
S  =  A(L.K) 

AIL.K)  =  A<  I  I ,K) 

16  A  (  I  1  .  K  )  =  S 

C  MOVE  COLUMN  Jl  TO  L 

14  IF(Jl-L)  17,20.17 

17  DET=-DET 

DO  18  K  =  1 ,N 
S  =  AIK.L) 

AIK.L)  =  AIK.J1  ) 

18  AIK, Jl )  =  S 
M  =  I ROW  I L ) 

1  ROW ( L )  =  IROW( Jl  ) 

IROW( Jl )  =  M 

C  REDUCE  SET  OF  EO.  BY  I 

20  LI  =  L+t 

C  TEST  FOR  SINGULAR  MATRIX 

IF  (  A(L.L)  )  40,  38.  40 
40  00  50  I =L 1 »N 

AM  =  A( I ,L )/A(L.L ) 

DO  50  J=L.NC 

50  A ( I , J )  =  AII.J)  -AM* A (L , J ) 

100  CONTINUE 

C  TEST  FOR  SINGULAR  ON  THE  LAST  REDUCTION 

IF  ( A (N , N )  )  180.  35.  150  \ 

C  MOVE  THE  8  VECTOR  BACK  INTO  B 

150  DO  202  I  =  1 ,N 

202  B ( I )  =  A ( 1 ,NC ) 

C  SUBSTITUTE  BACKWARD 

M  =  N-l 
K  =  N 

B ( N )  =  BIN) /A ( N.N ) 
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2 1 0  DO  220  I  =  1  .M 

220  8(1)  =  B(I)  -  A(I,K)*B(K> 

B(M)  =  B(M)/A{M,M) 

K  =  K— 1 
M  =  M-l 

IF  (M)  210.  230.  210 
C  REPLACE  ROOTS  IN  original  ORDER 

230  DO  400  I  =  1 ,N 

00  350  L  =  1 *N 

IF  ( I ROW ( I )  -  I)  320.400.320 
320  K  =  I ROW ( I ) 

I  ROW (  I  )  =  I  ROW ( X ) 

I  ROW ( K  )  =  K 
S  =  B< I ) 

B( I )  =  B(K) 

350  0(10  =  S 
400  CONTINUE 

C  CALCULATE  THE  VALUE  OF  THE  DETERMINANT 

DO  450  L  =  1 «N 
DET  =  DET*A(L.L) 

C  PROTECTION  AGAINST  VALUE  of  DEt  BEING  zero  due  to  UNDERFLOW 

IF (DET )  5001.35,5001 

5001  IF  (ABS  (DET)-l.ElO)  5540.5541,5541 
5541  I DET  =  IDET+IO 

DET  =  0ET/1.E10 
GO  TO  5001 

5540  IF  (ABS  (DET ) - 1 *E-1 0 )  5543.5543,  450 
5543  IOET  =  I0ET-10 

OET  =  DET* I .ElO 
GO  TO  5540 
450  CONTINUE 
500  RETURN 
55  OF.T  =  0. 

LSING  s  I 
GO  TO  500 

END 
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6.3  FLOW  CHARTS,  SUBROUTINE  LIST,  AND  FORTRAN  IV  LISTINGS  FOR  HAMILTON 
STANDARD  DECK  H060 

Figures  20,  21,  and  22  contain  the  pertinent  data  for  Hamilton  Standard  Deck  H060.  It 
is  the  computer  deck  which  computes  the  pertinent  centerbody  data  required  for  input 
to  Hamilton  Standard  Deck  H193. 
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FLOW  CHART 

CENTERBODY  INDUCED  VELOCITIES 
HAMILTON  STANDARD  DECK  H060 


READ  CENTERBODY 
INPUT,  PROPELLER 
STATIONS,  SHROUD 
STATIONS 


CALCULATE  COEFFICIENTS 
OF  POWER  SERIES  REPRESENTATION 
OF  SOURCE  SINK  DISTRIBUTION 


CALL 

BIQUAD 


CALL 

GAUSIO 


CALCULATE  TWO  DIMENSIONAL 
GLAUERT  COEFFICIENTS  FOR 
CENTERBODY  EFFECT 


CALCULATE  AXIAL 
VELOCITIES  INDUCED  IN 
PROPELLER  PLANE 


CALCULATE  AXIAL 
VELOCITIES  INDUCED  AT 
SHROUD  SURFACE 
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FORTRAN  IV  LISTINGS  FOR  HAMILTON  STANDARD  DECK  H060 

MAIN  PROGRAM  FOP  HS  DECK  HQ6 0 

DIMENSION  COEFTI 1 0. I n ,C0NSUM(6  > . TABLE (403 ) • BSUM ( I  0) .A (8 ) , ANORM(B) 
1 . ANCS ( 8 ) ,ZAV99(?00> .803(8) .SUMCl)  ( 8  >  «  2  I CB ( 8  I ,8) .ZLCB(8  5  .008(8.8) . 
?RBAR( I  0 ) . TX ( 40 ) .DATA (64 ) ,VRAD(81  ) ,XPRINT(81  ) .RC8C (300  )  .XI ( 1  I ) 
EQUIVALENCE  (DATA( 1  )  ,DC8) 

DATA  (OATA( I ) , 1=1 .64)/  1 . , 0 . . 0 . . 0. . 0. . 0. . 0 • *0. . 1 . . I . . O . . O. . 0 • 

X.0..0..0..t..?..!..0..0..0..0..0..!..8..3..t..0..0..0..0#«l.«4. 

X*6.*4..l..0.,0.*0..1..5.*l0..10..5*.r. .0*«0. *I«*6..15..(?O..I5. 
X.6..1..0..1..7..21.. 35 . . 35 • .21 ..7.. 1 • / 

1  WRITE  (6.2) 

2  FORMAT  (1H1.47X.22H  HS  COMPUTER  DECK  H060/40X.38H  CENtERBODy  INDuC 
I  ED  VELOCITIES  PROGRAM  /50X.I8H  HAMILTON  STANDARD  /49X.20H  WINDSOR 
2L0CKS . CONN.  /57X.5H  1967  ) 

READ  (5,4) 

WRITE  (6.4) 

4  FORMAT  (72H 

X  ) 

500  READ  (5,510) I .KL. (XI (JT) ,JT=t .1 1 ) 

510  FORMAT  (2I3.11F6.0) 

IF  ( 1-5)520,600.630 
520  GO  TO  (500.530.540.8601,1 
530  AM8DA=XI (2) 

ZALPCB=Xl (3) 

ZBETCBSX I (4 ) 

AZERO=X I (5) 

XLOC  =X I (6) 

ZMU=Xl (7) 

TR I G=X I (8) 

GO  TO  500 
540  DO  550  I T= 1 , 10 

RBAR {  I T ) -X  I (  IT  +  1  ) 

550  CONTINUE 
GO  TO  500 
560  T  ABLE ( 1  )  =  1  .0 

TA0LE(2)=XI ( I ) 

T  ABLE ( 3  )  =0 • 0 
DO  570  I T= I . 10 
TABLE (  I  T  +  7 ) - X  I  (  IT  +  I  ) 

570  CONTINUE 

NPT  =  2  «  0* TABLE  (  2  )  +  3  •  1 
IF  (NPT-1 3)500.500,580 
880  READ  (5.890) (TABLE! IT ). IT=14,NPT) 

590  FORMAT  (12X.I0F6.0) 

GO  TO  500 
600  TNX=Xt ( I ) 

NPT=Xt ( I )+. 1 
DO  610  I  T= 1 , 10 
TX ( I T ) =X I ( IT+1 ) 

610  CONTINUE 

IF  ( NPT- 1 0 ) 500 . 500 « 620 
620  READ  (5.590) (TX(  IT)  ,  IT  =  I 1 .NPT) 

GO  TO  500 
630  WRITE  (6,640) 

640  FORMAT  ( 1 7H0  ****  INPUT  ****  //  ) 

WRITE  (6,5)  AMBDA , ZALPCO ,  ZBETCI3  ,  AZFRO , X^.OC  , ZMU 

5  FORMAT  (33HOSHROUO  CHORD  TO  DIAMETER  RATIO  *F7.4/12H  ALPHA  BAR  = 
IF8.4  / 1  1 H  BETA  BAR*’’=F8./)  /9H  A  ZERO  =F9.5  /43H  NON-DIMENSIONAL  OOW 
2NSTREAM  PROP  LOCATION  =F7.4  /43H  PROP  DIAMETER/SHROUD  REFERENCE  D 
3IAMETER  =F7.4  ) 

ZI =2.0/(ZALPC8+ZBETCB) 
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XLOC=XLOC— AMBDA 
NP  =  T  ABLE 121 
SUM=0.0 
SUM 1 =0.0 
DO  20  L=! .6 
CONSUM(L)=0.0 
DO  10  N= 1 « 6 
COEFT  1L»N1=0.0 

10  continue 

20  CONTINUE 
DO  90  L  =  1  .6 
J=L+2 
JK=L+1 
ZJ=U 

DO  80  M= 1 .NP 
I =M+NP+3 

XN0RM=TABLElM+31*Zl-l .0 
H0L0=-1 .O-XNORM 

TEMP=— HOLD*  <  —  1 .0) **JK+.5*H0LD* ( 1 .0-1-1 . 0 ) ** J ) /Z J+XNORM** JK- ( - 1 .01  * 
1*  JK 

!FO_-l  123.23,63 
23  X  I NT  =  T ABLE (M+31  +  .001 

CALL  8IGUA0  1 T ABLE ( 1 1 , 1 ,X INT . 0 • 0 . S AvE 1 ,L I M 1 t 1 
X 1 NT= T ABLE (M+3)-. 001 

CALL  B10UAD  1 T  ABLE?  1  1  1  .  1  ,  X  I  NT  .  0.0 ,  S  AvE2  ,L  I M  I T  1 
IFlM-1 130.30,40 
30  SLOPE= ( SAVE 1-SAVE2)/. 001 
GO  TO  60 

40  1  F  { M-NP 150.30,80 
50  SLOPE=( SAVE 1-SAVE21/. 002 
60  ZAV99 (M  1  =TABLE (  I l*SL0PE/2.0 

63  CONSUM 1 L 1 =C0NSUM ( L 1 +TEMP* ( AZERD+ AZER0*H0LD-7AV99 ( M 1 1 
68  DO  70  N=1 ,6 
Jl=N+2 
JK1=N+1 
ZJ1=J1 

COEFT 1 L . N 1 = COEFT 1 L , N 1 + TEMP* ( -HOLD* 1 - 1 . O 1 ** JK | + .5* l 1 .0-1 “1 .0>**Jl 1* 
1  HOLD/Z J 1 +XNORM** JK 1-1-1 ,0>**JKl  1 

70  CONTINUE 
80  CONTINUE 
90  CONTINUE 

DO  100  N=1 ,6 
BSUM 1 N 1 s -CONSUM 1 N 1 
100  CONTINUE 

CALL  GAUSIO  < 6 . COEFT .BSUM. D . I D .L 1 

BSUM  NOW  CONTAINS  NORMALIZED  COEFFICIENTS 

DO  1 10  N  =  2,7 
ZN=N+ 1 

SUM=SUM+BSUMIN-1 1*1-1 ,01**N 

SUM  1 =SUM 1 +BSUM ( N- 1  1 *.5*1  1 .0- 1 - 1  . 0 1 ** 1 N+ 1  1 1 /^N 
1 1 0  CONT 1NUE 

ANORMI 2 1 =-AZER0+SUM-SUMl 
AN0RM1 1 1=AZER0-SUM+AN0RM(2) 

DO  140  1=1,8 
A  1  I  1=0.0 
140  CONTINU'7 

DO  142  1=3,8 
ANORMI  I  1  =  BSUM!  1-2  1 
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14?  CONTINue 
Z4=-Z1 

00  150  N=1  .8 
PN=N 

ZS=(-1 .0>**(N-1  ) 

Z6=AN0RM(N) *Z5 
A(1  )sA( t )  +  Z6 
A(2)=A(2)+(PN-1 .0)*Z6*Z4 

A(3)=A(3)+(PN-2.0)*(PN-1 .0 1 *Z6*Z4**2/2 • 0 
A(4)=A (4 )+(PN-3*0)*(PN-2.0)*<PN-l . 0 ) *Z6*Z4**3/6. 0 
A(5)=A(5)+(PN-4.0)*(PN-3.0)*<PN-2.0)*(PN-1 .0 ) *Z6*Z4**4/24 .0 
150  CONTINUE 

A (6) =(-21 .0* ANORM ( 8 ) +6.0* ANORM ( 7 ) — ANORM ( 6 ) >*Z4»»5 

A  < 7 1  =  ( -7. 0* ANORM ( 8 ) +AN0RM (71) *Z4**6 

A (8) =-AN0RM(8)*Z4**7 

00  154  1=1 i NP 

RCBC (  I  >=0«0 

DO  152  J=1 .8 

K  =  J 

0EN=J 

RCBC ( I  1 =RCBC ( 1  )+A(J)#tABLE( 1+3>**K/DEN 
152  CONTINUE 

IF  (RCBC ( I )) 1400. 154 , 141 0 
1400  RCBC (I  1 =-RCBC ( I  1 
14  10  RCBC ( 1 1=2* 0*S0RT ( RfcfiC  (11) 

154  CONTINUE 

WRITE  (6.156) 

156  FORMAT  (  1  I 7H0  AXIAL  LOC.  .NPUT  RBAR  CALC.RBAR  AxIAL  LOC 

X.  INPUT  RBAR  CALC.RBAR  AXIAL  LOC.  INPUT  RBAR  CALC.RBAR  ) 

I =NP/3 

J=]*3 

K=NP-J 

IF  (  K— 1  ) 1500.1510.1510 
1500  L= I 

GO  TO  1520 
1510  L=I+1 
1520  I  I =NP+3 

DO  1560  N=1  .L 
J=N+2*L 

IF  (  J-NP)  1540. 1540,,  1530 
1530  J=J-1 

1540  WRITE  (6. 1550 ) (TABLE (M+3 ) .TA8LE(M+ I  I  ) .RCBC (M) ,M  =  N. J.L  ) 

1550  FORMAT  ( 2X . 3F 1 2 .5 . 3X . 3F 1 2. 5 , 3X . 3F 1 2. 5  ) 

1560  CONTINUE 

DO  165  1=1.8 
ANCB ( I >=0.0 
165  CONTINUE 
Z9=Z ALPCR 
DO  170  1=1.8 
PN=1 

ANCB (  1  ) = ANCB ( I  ) +A (  I  )*Z9**(  I-l  ) 

ANCB  (  2  )  =  ANCB  ( ?  1  +A  (  I  >*(PN-1  . 0 )  «ZP««  (  I -?. ) 

ANCB ( 3 1 = ANCB ( 3 1 +A ( I ) # ( PN-2 . 0 ) * (PN- 1 .0>*Z9**( I“3)/?.0 
170  CONTINUE 

ANCB (4 ) = A ( 4 )+4 .0*A(5)#ZO+1 0.0*A(6) *Z9#*?+?0.0*A(  -7  )*ZP**7  +  35.0*A(8) 

1  * Z9  **4 

ANCB (5) =A(5)+5.0*A(6)*Z9+15.0*A(7)*Z9**2+38,0*A(8)»Z9**3 
ANCB ( 6 ) = A ( 6 ) +6 . 0* A ( 7 ) *Z9+2 1 .0*A (8 ) *Z9**2 
ANCB ( 7  >  = A ( 7 ) +7 . 0* A ( 8  > *Z9 
ANCB ( 8 ) =A ( 8 ) 
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WRITE  (6,175) (ANCB( I 1.1  =  1 .8) 

175  FORMAT  ( 84 Hp  •*#**  COEFFICIENTS  OF  POWER  SERIES  REPRESENTATION  OF  s 
1  C’JRCE  SINK  DISTRIBUTION  ♦***  /1H  .8F13.6  ) 

WRITE  (6.177) 

177  FORMAT  (63H0  AXIAL  LOC.  VR/Ut  AxIAL  LOC.  VR/Ul  AxIAL  LOC. 
X  VR/Ul  1 
DO  7080  !CB= 1 .3  > 

BC8(1CB)=0.0 
PH! =-,039267 
DO  7060  JCB  = 1 .81 
PH! =PH1+. 039267 
X  I C8= 1 CB- 1 
COSC=COS (PH I ) 

COSCB  =  COS ( X  I CB *PH I) 

I F ( I CB- I ) 7000. 7000. 7040 
7000  !F( JCB-f )7010. 7010. 702? 

7010  DO  7020  KCB=1.8 
SUMCB(KCB) =0.0 
7020  CONTINUE 
7022  DO  7025  LCB=1.8 

ZtCB( JCB.LCB) =0.0 
7025  CONTINUE 

zxcb=-amboa»cosc 

ZNCB=ZBETCB-ZXCB 
zmcb=-zalpcb-zxcb 
ZYC8  =  S0RT( ZNCB**2  +  1  .0) 

ZZCB  =  S0RT(ZMCB#*2  +  1  .0) 

ZLCB ( I  )=ZNCB/ZYCB-ZMCB/ZZCB 
ZLCB ( 2  )  =  1 .O/ZZCB- 1 .O/ZYCB 

ZLCB ( 3 ) =ALOG ( ( ZNCB+ZYCB ) / ( ZMCB+ZZCB ) ) +ZMCB/ZZCB-ZNCB/ZYCB 
ZLCB { 4  )  =ZYC8— ZZCB+ 1 .O/ZYCB-1 .O/ZZCB 

ZLCB ( 5 ) = .5* ( ZNC8*ZYCB-ZMCB»ZZCB ) +ZNCB/ZYCB-ZMCB/ZZCB+ 1 .5* Al.OG ( ( 

1 ZMCB+ZZCB ) /(ZNCB+ZYCB ) ) 

ZLCB ( 6  >  =  ( ZYCB**3-ZZCR**3 1/3.0+2  »  0* ( ZZCB-ZYCb )  + 1 . O/ZZCB -1 .O/ZYCB 
ZLCB ( 7 ) r ( ZNCP**5-2 .5*ZNCP**3-7.5»ZNCB )  /  <  A  • 0*ZYCB ) - I ZMCB**5“2. 5*ZMC 
1B**7-7.S*ZMCB)/(*.0*ZZCB)+1 .B75*AL0G( ( ZNCB+ZyCB ) / ( ZMCB+ZZCB ) ) 

ZLCB ( fl ) =ZYCB* ( .2*ZYCB**4-ZYCB#*2+3.0  >  +  l .0/ZyCB-ZZCB» (  .?*ZZCB**A~ZZ 
lCB**2+3.0)-l .O/ZZCB 
M99=l 

VRAD ( JCB ) =0 . 0 
DO  703*  199= I ,8 
DO  7032  J99=t,M99 
N99=M99-J99 

ZiC9( JCB. !99)=ZICB( JCB. 1 09  > +  ZXCB**N99*0CB  ( JP9, 1 99 ) *ZLCB ( J9Q ) 

7032  CONTINUE 

VRAD( JCB) = VRAD (JCB) +ANCB <  I  99 ) #Z I CB ( JCB ,  109) 

M99=M99+1 
7034  CONTINUE 

XPRINT ( JCB) =.5*{ 1 .0-COSC ) 

7040  1F(JCB-I  17042,7042.704  I 
70*1  !F(JCB-81  )70*3, 7042, 70*2 

70*2  CONSCB=. 01308997 
ZESTCB=UO 
GO  TO  70*6 

70*3  !F(ZESTCB)70*5, 70*5 .7044 
70*4  CONSCB=. 052359878 
ZESTCB=0»0 
GO  TO  7046 

70*5  CONSCB  =  .026 1  79939 
ZEST  CB= I .0 
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7046  00  7050  KCB  = 1 » 8 

1F( JCB-1 >7048,7047,7048 

7 C  SUMCB ( KCB >  =SUMCS ( KCB ) +Z I CB ( JOB ,KCB  >«C0NSC8 

GO  TO  7050 

7048  SUMCB ( KCB  >  = SUMCB ( KCB  >  +2  I CB ( JCB ,KCB >  *CONSCB*COSCB 
7050  CONTINUE 
7060  CONTINUE 

DO  7070  KC8= 1,8 

IF( ICB-1 >7066,7064,7066 

7064  0CB(  I C8 ) =BC8 ( ICBI-1  . 274*ANCB ( KCB ) *SUMCB ( KCB ) 

SUMCB (KCB) =0.0 
GO  TO  7070 

7066  0C8 ( I CB ) =8C8 ( I CB > +2 .848* ANCB ( KCB ) *SUMCB (KCB > 

SUMCB (KCB) =0.0 
7070  CONTINUE 
7080  CONTINUE 

DO  7084  KCB= 1.27 
I  =KC8+54 

WRITE  (6.7082) (XPRINT(K) ,VRAD(K > ,K=KCB. I ,27  ) 

7082  FORMAT  (IH  , 3 ( F tl .8 ,F 1 0.5 ) ) 

7084  CONTINUE 

WRITE  (6.7085) (BCB(KCB) ,KCP=1 ,8) 

7085  FORMAT  (S5H0  ****  GLAUERT  COEFF 1 C IENTS  EOR  CENtERBODy  EFFECT  »*** 
1/1H  ,8F 12.6  ) 

00  7450  1=1,2 
I F ( 1-1 >7300,7300,7310 

7300  M88= 1 0 
N88=  1 

WRITE  (6,7301) 

7301  FORMAT  (I9N0  PROP.X  VA/Ul) 

GO  TO  7320 

7310  M8S= 1 

N8B=TNX 
WRITE  (6.7312) 

7312  FORMAT  (19H0AXIAL  LOC.  VA/UI ) 

7320  DO  7440  J= 1 ,M88 

I F ( I  - 1  >7330,7330,7340 
7330  R=RSAR( J)*2Mu 
GO  TO  7350 
7340  R= 1 .0 

7350  DO  7430  K=1,N8B 
V=0.0 

I F ( 1-1 >7360,7360,7370 
7360  X=XLOC 

GO  TO  7380 

7370  X=2 , 0* AMBDA* (TX(K)-.B) 

7380  R2=R**2 
R4=R2#*2 

2N=2BETCB-X 
2M=-2ALPCB-X 
2Y=SQRT ( 2N**2+R2 ) 

2Z=SQRT(2M»*2+R2) 

2LCB (  1  )  =  UO/ZZ-I  .O/ZV 

ZLCB ( 2 ) =ALOG ( ( ZN+2Y ) / ( ZM+ZZ ) ) +ZM/Z2-ZN/2Y 
ZLCB  (  3  )  =ZY+R2/ZY-ZZ-R2/ZZ 

ZLCB (4 )  =  .5*(ZN«ZY-ZM*2Z)+ZN*R2/ZY-ZM*R?/ZZ+1 .5»R?*AL0G (( ZM+ZZ  > / 

1 (ZN+ZY)  ) 

ZLCB ( 5 )  =  ( ZY**3-ZZ**3 )/3. 0+2.0*R2*  <  ZZ-ZY ) +R4/ZZ-R4/ZY 
ZLCB  (  6  )  =  ( ZN**5-2.5*ZN**.3*R2-7 .5*ZN*R4  )  /  (  4 . 0*ZY  )  -  (  ZM**5-2 .5*zM**3*R 
12-7.B#ZM»R4 )/(4,0*ZZ)+l .875*R4*AL0G( ( ZN+ZY )/{ ZM+ZZ ) ) 
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ZLCB(7 ) =ZY* ( .2*ZY**4-ZY**2*R2+?cO*R4 ) +R4*R?/ZY-77* ( .?*7Z**4-ZZ**?* 
1  R2+3.0*R4 )-R4*R2/ZZ 

ZLCB (8) =ZM#»7/ZZ-ZN**7/ZY+! .1666667* (ZY*ZN»*5-ZZ*ZM**R-1 .25*R?*(ZY 
1* 

22N##3-2Z*ZM**3) >+.43725*R4«5.0*(ZN*ZY-ZM*ZZ+R2*ALOG< C ZM+ZZ )/ ( ZN+ZY 
3)  )  ) 

M99=l 

DO  7395  199=1,8 

DO  7390  J99= 1 ,M99 

N99=M99-J99 

IF  (N99 17382, 7384, 7 382 

738?  V=V-X**N99*DCB( J9Q, 1 09 1 *2LCB ( JR9 1 * ANCB ( 199) 

GO  TO  7390 

7384  V=V— DC8 <  J99 • 1 99 1 *ZL CB < J99 1  * ANCB <  199) 

7390  CONTINUE 
M99=M99+1 
7395  CONTINUE 

I F ( 1-1 17400,7400,7420 
7400  WRITE  (6,74  I  0 )RDAR( J) ,V 
7410  FORMATUH  F8.5,3X.F9.6) 

GO  TO  7430 

7420  WRITE  <6,7410)TX(K) ,V 
7430  CONTINUE 
7440  CONTINUE 
7450  CONTINUE 

IF.-TRIG)  1  ,  1  ,7460 

7460  caul  Exit 
end 
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SUBROUTINE  61  QUAD  <T.  1.  XI.  Yl.  2.  K ) 

THIS  ROUTINE  INTERPOLATES  OVER  A  4  POINT.  INTERVAL  USING  A 

VARIATION  OF  2ND  DEGREE  INTERPOLATION  TO  PRODUCE  A  CONTINUITY 
OF  SLOPE  BETWEEN  ADJACENT  INTERVALS* 

DIMENSION  T (  1  I *XC ( 4  I .  D<4),  P(5).  Y(4).C(4) 

EQUIVALENCE  (XC(l-).  0 C  1  >  > 

TABLE  SET  UP 

T  (  I  )  =  TABLE  NUMBER 

T ( I  + 1 )  =  NUM8ER  OF  (X)  VALUES 

T  (  I  +2 1  =  NUMBER  OF  (Y>  VALUES  (0.‘  FOR  UNIVARIATE  TABLE) 

T  (  I  +3 )  =  VALUES  OF  (X)  IN  ASCENDING  ORDER 

NX  =  T( 1+1 ) 

NY  =  T  < 1+2  > 

J1  =  1+3 
J2  =  J1  +  NX  -  1 
-X  =  XI  / 

SEARCH  In  X  SENSE 
L  =  0 

GO  TO  1000 

RETURN  HERE  FROM  SEARCH  OF  * 

K  =  KX 
JX=  JX1 

THE  FOLLOWING  CODE  PuTS  X  AND/OR  Y  VALUES  In  xC  BLOCK 
DO  110  J=1  ,4 
XCf J)  =  T( JXl > 

JX1  =  JX1+1 

GET  COEFF.  IN  X  SENSE 
GO  TO  2000 

RETURN  HERE  WITH  COEFF.  TEST  FOR  UNlVARE  OR  BIVARIATE 
IF  <  NY )  300.210.300 

2=0. 

JY  s  JX+NX 

DO  220  J*1 .4 
2*  2  +  C(J)*T(JY) 

JY  =  JY+1 
l  GO  TO  9999 

BIVARIATE  TABLE 
L=  1 

X  =  YI 
JI  =  J2+I 
J2  =  JI+NY-1 

SEARCH  IN  Y  SENSE  JXl  =  SUBSCRIPT  OF  1ST  Y 
GO  TO  1000 
K  =  K+3*KX 

INTERPOLATE  IN  X  SENSE 

SUBSCRIPT  -  BASE  NO.  OF  COL.  NO.  OF  YS 
JY  =  J2+1  +  <JX-!-3)*NY  +  Jxl-Jl 

DO  550  M=1  .4 
JX  =  JY 
Y(M>  =  0. 

DO  520  J=1  ,4 
Y(M)  =  Y(M>  +  C(J)*T<JX> 

JX  =  JX+NY 
JY  =  JY+i 

GET  COEFF.  IN  Y  SENSE 
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GO  TO  105 
600  Z  =  0. 

00  700  J=1 .4 
700  Z  =  Z  +  C(J)*Y(J> 

9990  RETURN 
C 

C  SEARCH  ROUTINE  -  INPUT  J1.J2.X 

C  -OUTPUT  RA.RS.KX.JXl 

1000  KX  =  0 

DO  1010  J=Jt  ,  J2 
tF  (T(J1-  X)  1010.1050.1050 
1010  CONTINUE 
C  OFF  HIGH  END 

X  =  T ( J2  1 
KX  =  2 

C  USE  LAST  A  POINTS  AND  CURVE  B 

1020  JXl  =  J2-3 
RA  =  0. 

GO  TO  1600 

C  TEST  FOR  -  -  OFF  LOW  END,  FIRST  INTERVAL,  OTHER 

1050  IF(J-Jl-l)  1000  .  1090  .  1100 

1080  IF ( T ( J 1— X 1  1082.1090.1082 

1082  KX  =  1 

X  =  T< Jl 1 
1090  JXl  »  'Jl 
RA  =  1  . 

GO  TO  1600 

C  TEST  FOR  LAST  INTERVAL  NO.  YES.  NO 

1100  IF  <J  -  J2>  1500,1020.1500 

' 1 500  JXl  =  J-2 

RA  =  ( T  <  J )  -  X  )/(T(J)  -  TtJ-1)  > 

1600  RB  =  1 .  -  RA 
C 

C  RETURN  BACK  TO  MAIN  BODY 

IF  (L)  500,  100.  500 

C 

C  COEFFICINT  ROUTINE  -  INPUT  X.  XI.  X2.  X3.  X* .  RA,  RB 

2000  DO  2010  J=1 ,3 
2010  P(J)  =  XC< J+l )-XC< Jl 
P14)=P< 1 ) +P  <  2 1 
P(5)=P(21+P(31 
DO  2020  J=1  ,4 
2020  D ( J  >  =  X-XC(J) 

C ( 1 )  =  ( RA/P (  1  11  *  <  D ( 2  )  /P  <  4  > ) *D  t  3 ) 

C ( 2 )  =  <  — RA/P I  1 ) )»(D< 1 l/Pl?) 1 *D ( 3 1  +  <  RB/P ( ? ) ) * ( D <  3 ) /P ( 5 ) ) *D < 4 ) 
C ( 3 )  =  <  RA/P  <  2 ) 1  * ( 0  < 1  )/P(4 ) 1 *D  <  2  )  - (RB/P ( ?  > ) *  <D( 2  > /P  <3)1*0(41 
C ( 4 1  =  ( RB/P  <51 )*(0<2)/P<3> ) *D ( 3 ) 

C  '  RETURN  TO  MAIN  BODY 

1F(L)  600,200,600 

END 
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